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USING THIS GUIDE 


This Guide is an introduction to the MAX language. It 
assumes that you are familiar with the Synclavier II (R) II 
real-time system as well as with entering, editing and 


performing SCRIPT compositions 
computer terminal. 


This Guide can also serve as a 


or XPL programs on the 


tutorial in the Scientific 


XPL language because it provides many simple programs for 


you to examine and run. But it 
complete guide to XPL. Turn to 
Manual for further information 
for use with the XPL/4 version 
Please refer to the Scientific 


does not attempt to be a 

the Scientific XPL Reference 
and review. MAX is designed 

of the XPL operating system. 
XPL/4 Documentation Update 


for additional information on the monitor, the Winchester 
disk and new catalog structure. The complete Synclavier (R) 
II Instruction Manual and Synclavier (R) II Setup and 
Installation Manual will also be helpful. 


Fifteen sample MAX programs are stored on your MAX user 
diskette(s) under the filenames DEMO1 through DEMO15. It 
would be helpful if you read the following chapters with 
your computer on so that you can run these programs as you 
read about them. Also the comments in the sample programs 
offer a great deal of useful documentation. 


PREFACE 


The MAX Language offers complete control of the Synclavier 
(R) II Digital Synthesizer and access to all internal 
computer capabilities. It consists of a library of special 
XPL/4 procedures which you can use in the development of 
your own customized digital synthesis system. All New 
England Digital hardware is supported. 


REAL-TIME INTERACTION 


With MAX, you can create a system that allows a performer to 
interact with the Digital Synthesizer in new ways. You are 
not restricted to the Synclavier (R) II real-time system. 
The pedal could be used to control recording speed. Or, 
input from the keyboard, pedal, and knob could direct the 
computer to generate a particular set of pitches in a unique 
manner. 


INSTRUCTIONAL APPLICATIONS 


MAX is an ideal tool for musical instruction. For instance, 
an ear-training drill could be devised in which a note would 
sound and the user would respond by typing a pitch name. 
Since you have access to a powerful 16-bit minicomputer, you 
can create extremely sophisticated instructional drills. 


FILM AND VIDEO 


MAX can be used to design custom interfaces with film and 
video equipment or to automate such production tasks as the 
generating or reading of SMPTE time codes. 


XPL LANGUAGE BASE 


Scientific XPL is the language used in all Synclavier (R) II 
software. Its optimizing compiler is especially designed for 
real-time applications. MAX is a library of special 
Scientific XPL procedures which enhance the basic language 
with features needed for musical applications. 


SPL COMPATIBILITY 


Many users will be familiar with SPL, the music language 
developed for the Synclavier I Digital Synthesizer. While 
MAX is upwards compatible with SPL, it offers many new 
features and is easier to use. New features include several 
forms of pitch conversion, a simpler method of channel 
allocation, new waveform memory controls, the ability to 
accept input from and send output to any hardware interface, 
and a multiple task system for parallel processes. 


1. MAX REQUIREMENTS 
HARDWARE 


To use the MAX language, you need a Synclavier (R) II 
Digital Synthesizer with at least 4OK memory, a computer 
terminal, and one of the following storage device 
configurations: 


a. two single density 5 1/4 inch drives 
b. one double density 5 1/4 inch drive and 
one single density 5 1/4 inch drive 
c. two double density 5 1/4 inch drives 
d. two 8 inch drives 
e. one Winchester disk and any of the above floppy drives 


A single Winchester of any size will vastly expand the 
storage capacity of the system and will speed the 
compilation of programs. Additional Winchester disks and 5 
1/4 inch drives can be added to any system. 


MAX programs can be written and run without the Synclavier 
(R) II keyboard unit. However, the addition of this unit 
enables the user to enter real-time data into the program 
through the knob, buttons, and keys. One or two Morley 
pedals offer another means of entering real-time data. 


And if you install the special PRINTER/MODEM port on the 
Digital Synthesizer, a printer and modem can be added as 
well. MAX programs can be listed on the DECwriter, LA-34, 
Printronix, PRISM80, and Diablo printers. 


SOFTWARE 
A SCRIPT-MAX-XPL software license is required for MAX. 


The MAX software consists of various files that you INSERT 
into XPL programs to perform musical functions. This 
software is provided on one or several user diskettes. It is 
used with the standard Scientific XPL/4 operating system and 
monitor, loaded either from a system diskette or from the 
Winchester disk. Repeat: The MAX software will not work with 
earlier versions of XPL. 


All MAX users, except those with drives for 5 1/4 inch 
single density diskettes, will receive two copies of the 
following diskettes: 


Scientific XPL/4 System Diskette 

MAX User Diskette (contains the six files of the MAX library and 
fifteen demo files) 

Scientific XPL/4 Utility Program Diskette 


MAX users with dual 5 1/4 inch single density drives will 
receive two copies each of the following diskettes: 


Scientific XPL/4 System Diskette 

MAX User Diskette #1 (contains MAXSYN, MAXIO, Demol through Demo11) 
MAX User Diskette #2 (contains MAXSYN, MAXIO, MAXTASK, Demo11-Demo14) 
MAX User Diskette #3 (contains MAXSYN, MAXIO, MAXTASK, Demo15) 

MAX Source Diskette (MAXSYN1, MAXIO1, MAXTASK1) 


Users of Winchester~based systems will also receive two 
copies each of the Winchester Installation and Winchester 
Bootload Diskettes. Instructions on their use may be found 
in the Scientific XPL/4 Documentation Update. 


2. THE ORGANIZATION OF THE HARDWARE 


The Synclavier (R) II Digital Synthesizer is a complex 
combination of 16-bit minicomputer and digital synthesizers. 
When you use the Synclavier (R) II real-time system software 
to operate the Digital Synthesizer, you can be somewhat 
fuzzy about which functions are performed by the computer 
and which are performed by the synthesizers. You interact 
with the Synclavier (R) II keyboard unit and pedal as a 
musician and performer rather than as a computer programmer. 


To learn to program in MAX, however, you must understand 
clearly the functional distinctions between computer and 
synthesizer. 


The computer is the director of the system. It determines 
the property of each sound, its harmonic content, volume 
envelope, duration, pitch, etc. and transfers all this 
information in the form of a compact set of digital code to 
the synthesizers. They in turn slavishly perform the 
repetitive task of synthesizing the digital waveforms. This 
highly efficient system can produce very precise numbers at 
a very high sampling rate, allowing glitch-free portamento 
and vibrato and preventing alias distortion. 


There are eight channels, or voices, in each synthesizer. 
For each channel there are two Sample Rate Generators, one 
for the carrier and one for the modulator. These two 
generators are paired together to produce sounds with 
varying overtone content by frequency modulation. 


A separate set of parameters, or control code, from the 
computer controls each channel. The control code for each 
channel includes: a 24-bit frequency descriptor, an 8-bit 
volume, 16-bit rates and 8-bit limits for the volume and 
index interpolators, a 2-bit index shift count, and a 
pointer to one of 32 waveform memories which can be loaded 
with any 256-point waveform. The figure on the following 
page indicates the organization of one synthesizer channel. 


To send this control code, you do not have to resort to 
assembler language. Instead you uSe high-level, 
easy-to-learn MAX procedures such as SETFRQ to set the 
frequency for a channel or SETVOL to set the volume. In 
addition, you do not need to know the digital codes, but can 
use familiar units such as frequencies in hertz. 


On the other hand, you are not limited to the 
note~processing data structure of the Synclavier (R) II 
real-time system. With MAX, sounds can become "events" of 


any form or length, interacting with other events or the 
performer in many different ways. You can create arbitrarily 
complex envelopes, combine channels, add multiple chorus 
oscillators, or design any type of vibrato or frequency 
modulation. 


The synthesizers are not directly connected to the buttons 
and keys of the keyboard unit in any way. All input from and 
Output to the Synclavier (R) II keyboard unit, or any other 
input or output device, are transmitted to and interpreted 
by the computer. The computer registers every key pressing, 
every turn of the knob, every push of a button. It displays 
messages in the window and lights the buttons. 


This means that MAX programs can add new features or 
completely new capabilities to the Digital Synthesizer, or 
to the keyboard unit, pedal, ribbon controller, etc. New 
input or output devices can be added to the system and 
additional synthesizer boards can be plugged in at any time. 


The modularity of both the software and the hardware is what 
allows New England Digital to continue to add new features 
to the Synclavier (R) II. And it is what allows you to 
design your own MAX system. 
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ONE SYNTHESIZER CHANNEL 


3. THE MAX LIBRARY 


A Scientific XPL procedure is a group of computer 
instructions which accomplish a particular purpose. MAX is a 
library of proven XPL procedures, such as SETFRQ and SETVOL, 
which you may use, or CALL, in your XPL programs to do the 
low-level communication with the synthesizers and to control 
the I/O devices connected with the computer. 


In other words, you write a simple functional statement. The 
MAX procedure will specify the necessary device addresses 
and registers for you. 


Before you proceed with this manual, you should understand 
the basic concepts relating to procedures. If you are a new 
XPL programmer, refer to the Scientific XPL Reference 
Manual. There are several different types of procedures. 
Some are passed one or more parameters. Others are called 
with no parameters. And some procedures return a value or 
values. These last procedures are classified in this manual 
as functions. 


There are three sections in the MAX library. Each is 
completely independent of the others, although they are 
designed to work together as well. Each section of the 
library is a file on the MAX user diskette which you INSERT 
into your XPL/4 program. You may insert one, two or all 
three in your programs. If you do not require the procedures 
of any of the sections, you need not waste computer memory 
by inserting unnecessary code in your programs. 


The first section, or file, is called MAXSYN. It contains 
the basic procedures for setting frequencies, waveforms, and 
volumes for synthesizer channels. To use this section, 
include the statement 


100 INSERT 'MAXSYN'; 


at the start of your program. The line number, shown here as 
100, can be any number, as long as the statement appears 
before the first executable statement in the program. You do 
not need the Synclavier (R) II keyboard unit to use MAXSYN. 
MAXSYN is explained in Chapter 4. 
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The second section is called MAXIO. It contains procedures 
which accept real-time data from the Synclavier (R) II 
keyboard unit, pedals, and knob, as well as output data to 
the digital display window, the button lights, and the 
control voltage jacks on the back of the keyboard unit. To 
use this section, include the statement 


110 INSERT 'MAXIO'; 


at the start of your program. The initialization code in 
MAXIO requires that a Synclavier (R) II keyboard unit be 
connected to the system. If you do not have a keyboard unit, 
you will not want to insert MAXIO. MAXIO is explained in 
Chapter 5 of this manual. 


The third section is called MAXTASK. It is a multi-task 
executive, enabling you to perform complex events with 
parallel processes. To use this section, include the 
statement 


120 INSERT 'MAXTASK'; 


at the start of your program. You may wish to use MAXTASK 
for applications which have nothing to do with digital 
synthesis, for instance, for real-time laboratory data 
analysis with multiple channels and events. In such an 
application, you would insert only the MAXTASK section into 
your program. The MAXTASK procedures are complicated and 
require some careful thought before use. Chapter 6 describes 
MAXTASK in detail. 


New sections will be added to the MAX library in the future. 
Although these first three sections are independent of each 
other, future sections will most likely be "higher-level" 
and will rely upon the present three for carrying out 
certain functions. 


There are two versions of each MAX file: the compacted 
version and the source version. In the compacted files, that 
is, MAXSYN, MAXIO, and MAXTASK, comments and line numbers 
have been removed for faster compilation. These files cannot 
be listed. In the source files, which can be listed, you 
will find many helpful comments. You can also make changes 
in the source files if desired. The source files are named 
MAXSYN1, MAXIO1, and MAXTASK1. Both versions of the files 
may be found on the 8~inch or double density 5 1/4-inch MAX 
user diskettes. On the single density 5 1/4 inch diskettes, 
the compacted files are found on User Diskette #1, #2, and 
#3. The source files are found on the Source Diskette. 
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The MAX files, in either form, may be saved on a different 
diskette from the diskette on which you develop your 
programs. If so, the XPL operating system will ask you to 
insert the proper diskette into the right-hand drive at 
certain points during compilation of a MAX program. This 
means that you do not have to keep a copy of the MAX library 
on all of your diskettes. Space is valuable if you are using 
minidiskettes. 


Winchester disk users will want to store the MAX library 
files, as well as their own MAX programs, on the Winchester. 
You can use the Winchester Installation diskette for this 


purpose. 


Although the three sections of the MAX library are 
independent, this manual covers them in an order which 
progresses from the simplest to the most difficult. And all 
our sample programs build on concepts explained in prior 
ones. Therefore, it is recommended that the chapters be read 
in consecutive order. 
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4, MAXSYN 


MAXSYN is the basic set of procedures used to control the 
digital synthesizers. Each procedure call applies to a 
particular channel of the synthesizer. For a channel to 
sound, it must be assigned a frequency for the modulator and 
earrier, and an above zero value for its volume register and 
an above zero limit for its volume envelope interpolator. It 
may be given complicated volume envelope and harmonic 
envelopes by setting a series of rates and limits for the 
volume and harmonic interpolators. In addition, each channel 
can be linked to a waveform memory that the MAX program 
loads with a complex waveform. 


After presenting a simple demonstration program, we will 
explain in detail the procedures for setting these 
parameters. 


DEMO1 = A SIMPLE SOUND 


First load the XPL/4 operating system and 
then place the MAX user diskette in the 
right-hand drive. 


DEMO1 on the user diskette is a simple MAX 
program that plays 25 randomly selected 
pitches. Examine the program by typing OLD 
DEMO1 and then LIST on your terminal. Then 
type RUN to run the program. It will take 
about 30 seconds to compile the program and 
set up the channel before the pitches will be 
played. 


Without explaining any of the statements in 
detail, the simple program works like this: 
It first obtains one of the synthesizer 
channels (the ALLOCATE function), opens up 
the volume (the SETVOL procedure) and sets 
the volume envelope limit to the maximum (the 
SETELIM procedure). 


Then the program goes through a loop 25 
times. Each time through, the program selects 
a random number between 2200 and 8800 (the 
RND function), uses the random number for a 
frequency number (the HERTZ function), sets 
the frequency for the channel (the SETFRQ 
procedure), and then waits for 500 seconds 
(the WAIT procedure) while the note plays. 
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After the last time through the loop, the 
synthesizer is shut down to zero volume (the 
ZEROSYN procedure). 


ALLOCATING A CHANNEL 


Since each voice, or channel, of the synthesizer has two 
oscillators, or Sample Rate Generators, channels are 
numbered by two's starting from zero. Thus, in an 
eight-voice Synclavier (R) II system, the channel numbers 
are 0, 2, 4, 6, 8, 10, 12, and 14. 


You can let MAXSYN do the work of numbering and assigning 
channels through two convenient procedures: ALLOCATE and 
FREECHAN. ALLOCATE is a function which selects a channel 
from the list of free channels and returns the selected 
channel number. FREECHAN is a procedure which is passed a 
channel number; it places that channel back on the free 
channel list. These two procedures also keep track of the 
number of channels in the system, so that conflicts in 
channel allocation will not occur. Examine the following: 


100 DCL CHAN FIXED; /* CHAN IS FIXED POINT VARIABLE 
USED TO HOLD CHANNEL NUMBER */ 
110 CHANSALLOCATE; /* ALLOCATE SELECTS FREE CHANNEL 


AND PASSES ITS NUMBER TO CHAN */ 
ag /* USE CHANNEL FOR SOUND EVENT */ 


160 CALL FREECHAN(CHAN); /* FREECHAN RETURNS CHANNEL NUMBER 
TO LIST OF FREE CHANNELS */ 


SETTING THE PARAMETERS FOR A CHANNEL 


We will now explain in detail the procedures used to set 
parameters for a channel. You will find that the names of 
more frequently used procedures and variables tend to be 
short, while those less frequently used are longer and 
contain periods. You will also note that there are several 
procedures that start with the letters SET. This usually 
means that the procedure is actually a call to two, or more, 
procedures. The first of the procedures usually, but not 
always, performs a calculation and the second emits data to 


the synthesizers. Sometimes there is no calculation 
necessary and the SET statement simply emits data to the 
synthesizers. 


SPECIFYING A FREQUENCY 


There are two frequencies to specify for each channel: the 
carrier and the modulator. There are also two procedures 
with which to do this. In most cases, you would use a call 
to SETFRQ, where the frequency of the carrier is specified 
and the modulator is determined by a specified 
modulator-to-carrier FM ratio, as in the Synclavier (R) II 
real-time system. At other times (e.g., for a constant 
modulator frequency), you may wish to call the SETFRQ2 
procedure, where both frequencies are specified. 


The call to SETFRQ takes the following form: 
<1n> CALL SETFRQ (CHAN,FREQ.NUM,RATIO); 


SETFREQ is the procedure which calculates and emits a 
frequency descriptor to the channel. CHAN is the channel 
number previously set by the ALLOCATE function. FREQ.NUM is 
the internal frequency code output by one of four conversion 
functions HERTZ, PITCH, KEY, or PCH to be described below. 
RATIO is the FM ratio multiplied by 1000. (i.e., use 1000 
for an FM ratio of 1.000, 2000 for 2.000, 500 for 0.500, 
etc.) If the harmonic envelope is zero or unspecified (see 
page 23), there will be no FM. When this is the case, use a 
ratio code of 1000, in order to avoid unnecessary 
computation time. 


The call to SETFREQ2 takes the following form (the "2" 
indicates that two frequencies are specified): 


<1n> CALL SETFRQ2 (CHAN,C.FREQ.NUM,M.FREQ.NUM) ; 


C.FREQ.NUM is the internal frequency code for the carrier 
frequency. M.FREQ.NUM is the internal frequency code for the 
modulator frequency. Any of the conversion functions 
described below may be used for either argument. 


The Frequency Conversion Functions 
Different users have different preferences in the way they 
refer to frequency. A researcher in psychoacousties might 


want to specify frequency in hertz, while a composer might 
want to use pitch letters such as C, D, or F#. On the other 
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hand, a composer of computer music might prefer the form of 
pitch specification known as octave-point pitch-class. And 
others may wish to use the simplest approach of all, key 
numbers. MAX supports all four methods. 


HERTZ is a conversion function which accepts an integer 
representing a frequency in hertz multiplied by 10. That is, 
use 4400 for 440.0 hertz. Thus, the statement 


100 CALL SETFRQ (CHAN,HERTZ(4400) , 1000) ; 


would calculate and emit to the synthesizer channel a 
frequency descriptor based on a frequency of 440.0 hertz for 
the carrier as well as for the modulator. 


PITCH is a conversion function which accepts the pitch 
letters used in the SCRIPT language. The letters are 
enclosed in apostrophe marks. Thus, the statement 


100 CALL SETFRQ (CHAN, PITCH('C#3") ,2000) ; 


would calculate and emit to the channel a frequency 
descriptor based on middle C# with an FM ratio of 2.000. As 
in SCRIPT, a # indicates a sharp and an F indicates a flat. 
The number right after the pitch indicates the octave. This 
octave number will be used in the subsequent frequency 
specifications until a different octave is specified. (The 
initialization octave number is 3, the octave that begins 
with middle C.) Sharps or flats, however, aepLy only to the 
one call to SETFRQ. 


KEY is a conversion function which accepts a key number, 
from 0, for the lowest C on the keyboard, to 60, for the 
highest C. This coding corresponds to codes returned by the 
keyboard scanning procedure in MAXIO. Thus, the statement 


100 CALL SETFRQ (CHAN,KEY(24) , 1000); 


would calculate and emit to the channel a frequency 
descriptor based on middle C and an FM ratio of 1.000. 


PCH is a conversion function which accepts an octave-point 
pitch-class number, such as those used in MUSIC-11 and 
MUSIC4BF. This is a floating point value. The integer 
portion of the number indicates the octave in which the 
pitch lies, with octave 8 being the octave that begins with 
middle C. The two digits to the right of the decimal 
indicate pitch within the octave in semitones above C, from 
00 for C and 11 for B. The subsequent digits represent 


additional tenths, hundredths, etc., of a semitone. Thus, 
100 CALL SETFRQ (CHAN,PCH(8.0325) ,4000); 


would calculate and emit to the channel a frequency 
descriptor based on one quarter of a semitone above D# in 
the middle octave with an FM ratio of 4.000. 


In this last example using SETFRQ2, 
100 CALL SETFRQ2 (CHAN,HERTZ(4400) ,HERTZ(5500)); 


a frequency descriptor based on a carrier frequency of 440.0 
hertz and a modulator frequency of 550.0. 


Special Tunings 


The overall tuning base for the PITCH and KEY functions is 
the standard A-440. A new tuning may be established by a 
call to SET.TUNING.BASE. The argument specifying the new 
tuning base is a fixed point value representing a frequency 
in hertz multiplied by 10. Thus, the default is as if the 
statement 


100 CALL SET. TUNING. BASE(4400) ; 
had been executed. The statement 
100 CALL SET.TUNING.BASE (8800); 


would tune every pitch generated by the PITCH and KEY 
functions up an octave. 


The octave ratio also affects the PITCH and KEY functfhs in 
the same way as the OCTAVE RATIO affects pitches in the 
Synclavier (R) II real-time system. A new octave ratio is 
established in an assignment statement which sets the value 
of the variable OCTAVE.RATIO equal to the octave ratio 
multiplied by 1000. Thus, the default assignment statement 
is 


100 OCTAVE.RATIO = 1000; 


whereas the following statement would establish an octave 
ratio of 2.000: 


100 OCTAVE.RATIO = 2000; 


The HERTZ and PCH functions are considered to be absolute, 
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and will not be affected by changes in the tuning base or 
octave ratio. 


The sample programs on your MAX User Diskette demonstrate 
many different MAX features. But each one also uses a 
different frequency specification function. As you have 
seen, DEMO1 uses the HERTZ function. DEMO2 uses the KEY 
function, DEMO3 uses the PCH function with data lists of 
floating point numbers placed in arrays, and DEMO4 uses the 
PITCH function. 


Timing Considerations 


The time required to compute the frequencies is minimal and 
can usually be ignored. If there is a great deal of 
parameter modification in your program, however, you may 
wish to break the SETFRQ procedure into its separate 
components. The CALCFREQ function can be called first to 
compute the digital code for the carrier and then for the 
modulator. It passed a frequency number from one of the four 
conversion functions or, in the case of the modulator, a 
number determined by the FM ratio. Using this frequency 
number, it computes three digital codes and places them in 
the global variables NOTEADD, NOTEINC, and NOTEDIV. The 
EMITEFRQ (for the carrier) and EMITIFRQ (for the modulator) 
procedures are passed the precomputed digital codes and emit 
them to the synthesizer. The EMIT step is effectively 
instantaneous, while the CALC step does take some time. Thus 
a program may be speeded up in a crucial place by 
precomputing and storing the NOTEADD, NOTEINC, and NOTEDIV 
values for each carrier and modulator frequency that will be 
needed. When each frequency is required, the EMIT procedures 
can transmit them rapidly. 


SETTING THE VOLUME 


The overall volume for a channel is set by a call to the 
SETVOL procedure. This procedure places an 8-bit number in 
the channel's volume register. The value ranges from 0 (for 
zero volume) to 255 (for maximum volume). The CALL statement 
in DEMO1 sets the volume for the allocated channel at the 
max imum: 


11 CALL SETVOL(CHAN, 255); 
The overall level of various channels in a polyphonic 


composition are adjusted in calls to SETVOL at the beginning 
of the program in much the same way as a choral director 
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assigns different numbers of singers to soprano, alto, 
tenor, and bass sections to achieve a balanced sound. 


USING THE INTERPOLATORS 


Each channel has two interpolators that assist in the 
generation of sounds with time-varying volumes and spectra. 
Let us say that you wished to generate a sound that started 
at zero and climbed to its peak level over a two millisecond 
period. To perform such an attack without the aid of an 
interpolator, the computer would have to change the volume 
register every 8 microseconds. Such a data rate is not 
possible when many channels are in simultaneous use. 


The interpolator circuits in the synthesizer allow the 
generation of precise envelopes while reducing the 
computational load on the computer to a tolerable minimum. 
At the start of a change in volume or FM index, the program 
specifies a rate of increase (or decrease) and a limit, or 
new volume or harmonic index level. The interpolator 
increases or decreases the volume or FM index at the 
specified rate until the specified limit is reached. 


The Volume Envelope 


The rate for a channel's volume envelope interpolator is set 
by a call to the SETERATE procedure, where the arguments are 
the channel number and a time in milliseconds ranging from 0 
to 9999. This time represents the time it will take to make 
a full seale (from 0 to maximum) change in volume. The limit 
for the volume envelope interpolator is set by a call to 
SETELIM, where the arguments are the channel number and a 
limit value between 0 and 255.. 


A channel's volume register and its volume envelope limit 
are two distinct values which combine to provide sixteen 
bits of dynamic range. SETVOL statements control the balance 
between different channels. SETELIM statements set the 
amount of the overall volume that will be reached at a given 
time. 


You should always use the full 256-point range of the 
envelope interpolators when constructing attacks and decays. 
Doing so will eliminate any granularity associated with the 
discrete steps of the volume envelope interpolator. 
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Before any sound will be heard, the SETELIM procedure must 
be called and passed an above zero limit for the envelope 
interpolator. DEMO1 simply sets the envelope limit to 
‘maximum throughout each note: 


12 CALL SETELIM( CHAN, 255); 


There is no call to SETERATE. The sound is instantly at 
maximum. 


Volume envelopes, however, can be infinitely complex and 
completely arbitrary. 


DEMO2 - A SIMPLE ENVELOPE 


Now recall and list program DEMO2 on the MAX 
user diskette. Here the SETERATE and SETELIM 
procedures are used to create a simple 
two-segment event with an attack and a decay. 
For each segment of the sound, the rate and 
limit are set, followed by a WAIT while the 
segment occurs. Note that since the decay has 
a limit of zero, a call to ZEROSYN is not 
needed here to shut off the synthesizer 
channel, 


You will also note the call to WAIT after 
each segment is begun. The WAIT procedure 
stops all processing except for the 
interpolators for the specified time. 


DEMO3 ~ TWO CHANNELS 


Now examine the DEMO3 program. Here two 
channels are allocated, one for alto (CHAN1) 
and one for bass (CHAN2). The two SETVOL 
statements : 


15 CALL SETVOL(CHAN1,255); 
16 CALL SETVOL(CHAN2, 180) ; 


set the alto channel at full volume and the 
bass at about 70 percent loudness. But, since 
the envelope limits and rates are the same 
for both channels, they will both reach peak 
at the same time. Note that because there is 
no decay to zero in the envelcpes, a ZEROSYN 
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Statement is required at the end to shut down 
the synthesizer channels. 


Time-Varying Spectra 


The SETIRATE and SETILIM procedures are used in the same way 
to change the FM index or depth of modulation. (For 
explanation of index, see John Chowning, "The Synthesis of 
Complex Audio Spectra by Means of Frequency Modulation", J. 
of Audio Engineering Society, Vol. 21, No. 7, 1973, pp. 
526-534.) 


The SETILIM values correspond to the Synclavier (R) II 
HARMONIC ENVELOPE PEAK and SUSTAIN values which have a range 
of 0 to 1000. In MAX, however, this limit value is coded in 
the range from 0 to 255, along with a multiplier called a 
shift count. When the shift count is zero, the index of 
modulation limit will be as indicated in the SETILIM 
statement. When the shift count is one, the index limit will 
be twice the value indicated in the SETILIM statement. Shift 
counts of two and three will multiply the index limit by 
four and eight respectively. The procedures SETISHC and 
EMITISHC are used to load shift counts into the synthesizer. 
See the MAX Reference Manual for more details. 


Combining and Dividing Procedures 


It is possible to combine some of these interpolator 
procedures. The procedure SETE first calls SETERATE and then 
SETELIM, a frequently used sequence of calls. The call to 
SETE passes the channel number, the time (for the rate), and 
then the limit. The order of these arguments is easy to 
remember. The new rate must be set before the new limit, so 
that the interpolator does not start moving toward the limit 
at the wrong rate. The SETI procedure combines SETIRATE and 
SETILIM in the same way. 


It is also possible to break SETERATE and SETIRATE down into 
calls to CALCRATE, which computes the numbers and stores 
them in the global variables INTADD and INTDIV, and calls to 
EMITERATE and EMITIRATE, which emit the numbers rapidly. You 
would use this method to save computation time in the middle 
of a composition. 


DEMO4 = CHANGING SPECTRA 
The program DEMO4 uses the SETIRATE and 


SETILIM procedures to create a changing index 
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of modulation for the notes. You will also 
note the use of the combined SET procedures. 


29 CALL SETE(CHAN, 1000,0); 
30 CALL SETI(CHAN,1500,0); 


Line 29 sets a one-second decay to zero in 
the volume envelope; line 30 sets a 
one-and-a-half second decay to zero for the 
index limit. 


CREATING A COMPLEX WAVEFORM 


The waveform memories in the synthesizer hold complex, 
user-defined waveforms which are used to produce sounds with 
arbitrary harmonic content. There are 32 of these memories. 
Each one holds a 256-point waveform and can be used by any 
channel or shared among several channels. Each point of the 
waveform is represented by an eight-bit number having a 
value between 0 and 255. 


In the MAXSYN initialization procedures, a sine wave is 

placed in one of the waveform memories. All channels are 
instructed to use this memory unless other instructions 

appear in the MAX program. Thus, the sounds produced in 

DEMO1, 2, 3, and 4, were based on a sine wave. 


To produce a sound using a complex, i.e., nonsinusoidal, 
waveform, one of the waveform memories can be loaded with 
the values that will produce the desired periodic waveform. 


There are several procedures involved. The first procedure, 
called CALCWAVE, calculates the waveform. The second, called 
EMITWAVE, loads the waveform into a waveform memory. The 
third, called SETWSEL, connects the channel with the 
waveform memory. There is a fourth more general procedure 
called SETWAVE that you may find very useful. Not 
surprisingly, this procedure combines the CALCWAVE and 
EMITWAVE procedures. Now we will describe these procedures 
in detail. 


CALCWAVE computes the digital waveform that corresponds to a 
specified harmonic spectrum. It is passed an array 
specifying harmonic coefficients. These are fixed point 
values in the range from 0 to 1000 indicating the relative 
strengths of the various harmonics. (These numbers 
correspond to the DIGITAL TONE GENERATOR settings of 0.0 to 
100.0 in the Synclavier (R) II real-time system.) The 
zeroeth element of the passed array indicates the number of 
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harmonic coefficients. Using these coefficients, the 
computer calculates the waveform and places the numbers in a 
256-point array called WAVEBUF. For example, the statement 


100 CALL CALCWAVE(4, 1000,500, 333,250); 


would compute a complex waveform with the fundamental at 
full volume, the octave at half volume, the fifth at 
one-third volume and the fourth at one-fourth volume. 


CALCWAVE is useful for creating waveforms with entirely 
harmonic components. However, you may also set up arbitrary 
waveforms, by filling any 256-point array with specified 
values between 0 and 255. 


The second procedure EMITWAVE loads the waveform into the 
waveform memory. It is passed a waveform memory number and 
the waveform array. The statement 


120 CALL EMITWAVE(0,WAVEBUF) ; 


places the WAVEBUF array in waveform memory O in the 
synthesizer. 


The calculation of the settings for the waveform memory is 
the most time-consuming activity associated with the Digital 
Synthesizer. It can take as much as a tenth of a second, 
depending on the number of coefficients. For this reason, it 
is standard practice to calculate and load all of the 
waveform memories needed for a piece at the beginning of the 
program. If more than 32 different waveforms are needed, 
they may be calculated in advance ard stored in any fixed 
point array. The actual loading of the waveform memory, with 
EMITWAVE, takes only several milliseconds. 


The most complete waveform memory procedure is SETWAVE 
because it combines CALCWAVE and EMITWAVE. This procedure is 
passed a list of harmonic coefficients (like those used for 
CALCWAVE). It calculates the waveform and looks for a 
waveform memory in which to store it. The advantage of 
SETWAVE is that it checks to see if the specified waveform 
is already stored in any of the waveform memories before it 
performs the calculation. Thus, it prevents duplication of 
waveforms. Its disadvantage is that it may take time if a 
calculation is necessary. Therefore, it should be called at 
the beginning of a program, not repeatedly throughout a 
program. SETWAVE returns the number of the waveform memory 
used or -1 if none are free. It also keeps a count of the 
number of current uses of each waveform memory. 
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Correspondingly, the procedure FREEWAVE may be called to 
indicate that one usage of a memory has been completed. 
FREEWAVE is passed the waveform memory number. (Since 
memories can be shared, a memory is not considered available 
for a new waveform until all current usages of it have been 
terminated. ) 


The final procedure, SETWSEL, is used to select the desired 
waveform memory for a channel. It is passed a channel number 
and a waveform memory number. 


DEMO5 and DEMO6 ~ USING COMPLEX WAVEFORMS 


The programs DEMO5 and DEMO6 use the waveform 
memory procedures along with many of the 
procedures mentioned in previous sections. 
Compare the DEMOS program and its sound to 
DEMO2. The two programs are similar except in 
the waveform used. In DEMO5, the complex 
waveform is calculated and loaded into a 
waveform memory and the memory is linked to 
the allocated channel before the composition 
begins. 


DEMO6 shows how the SETWSEL procedure may be 
used to change the waveform used, by 
alternating the memory pointer between two 
precomputed waveforms. The waveform memory is 
changed at the start of each note, depending 
on whether the note number is even or odd, as 
below: 


19 IF I MOD 2=0 THEN CALL SETWSEL(CHAN,WAVE1); 
20 =ELSE CALL SETWSEL( CHAN ,WAVE2) ; 


SOME UTILITY FUNCTIONS 


The procedures RND, WAIT, and ZEROSYN have been called in 
demos that you have already seen, but here they are 
described completely, along with a few others. 


The RND function is a simple uniform random number 
generator. It produces an integer output in the range 
between its minimum value (the first argment) and one less 
than its maximum value (the second argument). Thus RND(0,6) 
would produce integers between 0 and 5. RND will always 
produce the same sequence of outputs during each run of a 
program. 
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The WAIT procedure, which has been used in every sample 
program so far, provides a simple delay for a specified 
number of milliseconds. No processing activities will occur 
during this delay, although the interpolators will continue 
to operate. The time values passed to WAIT will be reduced 
to the corresponding number of ticks of the system clock. 
The default clock rate is set at 200 hertz (5 milliseconds 
per tick), as is standard in all Synclavier (R) II systems. 
Thus, times should be in multiples of 5 milliseconds. 


The CLEANUP procedure is used to silence a particular 
channel. It is passed a channel number as in 


100 CALL CLEANUP (CHAN); 


The ZEROSYN procedure repeatedly calls CLEANUP until all 
channels are silenced. Thus, you may use these two 
procedures to selectively or completely reset the 
synthesizer channels to zero. 


Note that there is a call to ZEROSYN among the 
initialization procedures of the MAXSYN section so that all 
synthesizer channels are always set at zero prior to the 
execution of any MAXSYN program. This assures that results 
will be repeated each time a program is run. 


The ALLOCATEX procedure is an extended version of the 
ALLOCATE procedure, and is useful in custom systems in which 
the channels have been wired to produce stereo or quad 
output placement. ALLOCATEX is passed a list of channels 
from which to select a channel. The list is an array in 
which the zeroeth element is the number of channels in the 
list. The channel numbers are the even numbers as described 
above. 


As an example, suppose that channels 0, 2, 4, and 6 were 
connected to the left output, and channels 8, 10, 12, and 14 
were connected to the right output. Then we could allocate a 
stereo pair as follows: 


27 


100 DCL LEFT.CHANNELS DATA (4,0,2,4,6); 

110 DCL RIGHT.CHANNELS DATA (4,8,10, 12,14); 

120 DCL (CHANL,CHANR) FIXED; 

130 

140 CHANLSALLOCATEX(LEFT.CHANNELS); /* GET A LEFT CHAN */ 

150 CHANRSALLOCATEX(RIGHT.CHANNELS); /* AND A RIGHT CHAN */ 
ee /* USE THE PAIR */ 

190 CALL FREECHAN(CHANL); /* GIVE THEM BACK #/ 

200 CALL FREECHAN(CHANR) : 


ALLOCATEX uses the same channel usage table as does 
ALLOCATE, so that both procedures may be used in the same 
program, in conjunction with FREECHAN. 


DEMO7 - POLYPHONIC SOUNDS 


DEMO7 shows how several channels can be active in 
overlapping stages to create polyphonic sounds. In this 
program, each pass through the loop allocates a new 
channel, and starts a decaying envelope event. Each new 
pass begins before the prior event has finished. In 
Chapter 6, you will learn how the MAXTASK procedures 
ean create parallel processes to produce more 
sophisticated overlapping. 
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5. MAXTIO 


The MAXIO section enables the user to enter into MAX 
programs data from the buttons, control knob and keys of the 
Synclavier (R) II keyboard unit, as well as from the pedals 
or other devices. It also sends output to the digital 
display window and lights the buttons. 


With the insertion of the MAXIO section, as well as MAXSYN, 
a simple program might wait for a key on the keyboard to be 
pressed, and then initiate an event using the pitch that 
corresponds to that key. Input from the pedal could 
determine the volume of the event. And the position of the 
knob could set a value such as FM index in a compositional 
algorithm. 


USING SCANDATA 


The MAXIO procedure SCANDATA is the main communications link 
to and from the peripheral devices. This procedure samples 
all of the input devices at the time of each call and places 
data in a number of global variables. You can use these 
variables for any purpose. 


For synchronization purposes, the call to SCANDATA should 
almost always be placed within a loop that contains a WAIT 
call. This enables you to set up a determinable scanning 
rate, as you will see in the sample programs. 


For the sake of consistency, all variables which contain the 
current position of a performance input device have names 
ending in .POS. All variables which contain the neutral 
position of those devices which have a neutral position have 
names ending in .BASE. 


Input from the Pedals 


The simplest function of SCANDATA is to write the current 
positions of the real-time effects and volume pedals into 
the variables RTEPEDAL.POS and VOLPEDAL.POS. The positions 
are coded so that a zero is written when the pedal is all 
the way up (or plugged in but turned off), and 225 is 
written when the pedal is all the way down (or not plugged 
in at all). 


You might like to erter and run the following simple 


program. Connect the pedals to the jacks labeled OVERALL 
VOLUME and REAL TIME EFFECTS on the back of the keyboard 
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unit. Then, as the program runs, push the pedals up and 
down. 


100 INSERT 'MAXSYN'; 

110 INSERT 'MAXIO'; 

120 DCL I FIXED; /* LOOP INDEX */ 

130 DO I = 1 TO 20; /® DO 20 SCANS *#/ 

140 CALL SCANDATA; 

150 PRINT 'THE VOLUME PEDAL POSITION IS ',VOLPEDAL.POS; 
160 PRINT 'THE RTE PEDAL POSITION IS ',RTEPEDAL.POS; 
170 CALL WAIT(500); /* WAIT A HALF SECOND */ 

170 END; 


This program would produce twenty scans, each half a second 
apart. Each scan would read the current positions of the two 
pedals, place the values in the variables VOLPEDAL.POS and 
RTEPEDAL.POS, and then display the new values on the 
terminal screen. Note that the computer time required for 
the SCANDATA procedure and the PRINT statement is 
insignificant compared to the length of the WAIT. Thus, it 
is the length of the WAIT that determines the timing. 


Input from the Control Knob 


The SCANDATA procedure also accepts input from the control 
knob and places it in three variables based on the current 
position of the control knob. In the first variable, 
KNOB.POS, is placed the current position of the control 
knob. The range is from around 100 (when the knob is all the 
way to the left) to 160 (when the knob is all the way to the 
right). 


In the second variable, KNOB.BASE, is placed the neutral, or 
centered, position of the knob, typically 130. You can 
produce changing values for any parameter of a sound with 
the knob if you subtract KNOB.BASE from changing KNOB.POS 
values (KNOB.POS-KNOB.BASE). The result will be -30 when the 
knob is all the way left and +30 when the knob all the way 
right. 


If you have used the control knob to change a parameter in 
the Synclavier (R) II real-time system, you know that it 
produces a smooth and gradual change in any selected 
parameters. This is the result of a filtering and smoothing 
function performed on KNOB.POS values. The same function is 
now available for your own use. SCANDATA compares the 
changing values in KNOB.POS with KNOB.BASE for you, filters 
the result, and stores the smoothed value in the third 
variable, KNOB.CHANGE. 
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To use this function, simply add KNOB.CHANGE to the variable 
to be changed. For example, the following statement would 
smooth the new ratio setting. 


50 RATIO=RATIO+KNOB. CHANGE ; 


When using KNOB.CHANGE, it is recommended that you use it in 
a loop which calls SCANDATA at 200 hertz, which means 
including a WAIT of 5 milliseconds. If not, the knob will 
respond more slowly than in the real-time system. It is also 
helpful to display each new value (using the DISPLAY 
procedure described below). 


KNOB.CHANGE can be added to several variables after each 
eall to SCANDATA. Or, program logic can be devised to 
indicate which of the several variables is to be changed. 
(That, of course, is how the Synclavier (R) II real-time 
system works!!). 


Input from the Buttons 


SCANDATA also reads the control panel to determine if any 
button has been pressed. It sets up an array called PANSW, 
where each of eight values contains a 16-bit number 
indicating which buttons are currently pushed in each of the 
eight button panels on the control panel. The eight panels 
are numbered as follows: 


0 2 + 6 
1 3 ) 7 


Thus PANSW(0) holds the 16-bit word for the ENVELOPE 
buttons, PANSW(3) holds the word for the TRACKS buttons, and 
PANSW(6) holds the word for the buttons labeled TIMBRE BANK 
and TIMBRE ENTRY. 


Each bit of the 16-bit word represents one button. The 
buttons in each panel are numbered in the same order as the 
TRACKS buttons, that is, from upper left to lower right. 
Thus, the least significant bit represents the upper 
leftmost button (button 1), and the most significant bit 
represents the lower right button (button 16). A "1" 
indicates the button is pressed and a "0" indicates the 
button is unpressed. When a button is pressed, it will 
automatically be lit by this procedure. 
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Writing to the Buttons 


To write to the buttons, i.e., turn one or more "on" without 
pressing it, you set up the array DISPLAYSW in much the same 
form as for PANSW. Thus, setting DISPLAYSW(1) to '002000" 
(octal) would light button 7 under DIGITAL TONE GENERATOR 
and setting DISPLAYSW(2) to "000005" would light both START 
and RECORD buttons under RECORDER RECALL. You can also use 
whole integers instead of octal numbers. See Demo14 and 
DEMO15 where the MASK data list is used to light, and 
unlight, various buttons. Set up the DISPLAYSW array before 
the call to SCANDATA. 


DEMO8 -- A RANDOM WALK 


Now for a simple working example. Note that 
both MAXSYN and MAXIO are inserted at the 
start of DEMO8. In this program, the main 
loop will continue until the user presses a 
button in panel 0 (the ENVELOPE buttons). 


19 DO WHILE (PANSW(0)=0); 


Examine the second WAIT statement within that 
loop. This WAIT determines the speed of the 
program loop and its length is dependent upon 
the variable RTEPEDAL.POS. 


24 CALL WAIT(SHL(RTEPEDAL. POS, 1)+50) ; 


The SHL function multiplies the pedal 
position by two; 50 is added so that the loop 
never comes to a complete halt. When the 
pedal is down, the WAIT will be long, and 
when the pedal is up, the WAIT will be short. 


The loop makes a random step up or down the 
keyboard by: incrementing or decrementing the 
variable NOTE and using that variable in a 
KEY frequency function. The variable THRESH 
is determined by the direction in which the 
knob is turned. If the knob is turned to the 
left, THRESH will be less than 50; if the 
knob is turned to the right, THRESH will be 
greater than 50. A random number from 0 to 
100 is produced by the RND function. If this 
number is less than THRESH, the walk is 
biased in the upscale direction. If this 
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number is more than THRESH, the walk is 
biased in the downscale direction. And if 
THRESH is 50 (when the knob is at center), 
the probabilities will be just about equal in 
either direction. This is called a "random 
walk". We begin our random walk at key 24, 
which is middle C. 


Try running the program, but first make sure 
that the pedal is plugged into the jack 
labeled REAL TIME EFFECTS on the back of the 
keyboard unit, that it is turned on, and that 
it is pushed all the way down. Once the 
program is going, push the pedal up and the 
walk will speed up. Turn the knob to change 
the direction of the walk. If the pitch nears 
either end of the keyboard, the program will 
Start the walk over again at middle C. Try 
this out. 


To stop the program, push any button in the 
ENVELOPE panel. 


USING SCAN.KEYBOARD AND SCAN.RELEASE 


The SCAN.KEYBOARD procedure may be called after SCANCDATA to 
check if any new keys have been pressed on the keyboard. It 
returns the number of new keys pressed since the last call 
to SCAN.KEYBOARD as well as a list of the key numbers of the 
new keys. This procedure uses the same coding as that used 
in the KEY frequency function. 


Similarly, SCAN.RELEASE may be called after SCANDATA, and 
either before or after SCAN.KEYBOARD, to test for any keys 
that have been released since the last call, It returns the 
number of new releases, and a list of the key numbers of the 
released keys. 


Both SCAN.KEYBOARD and SCAN.RELEASE are passed an array in 
which to return the new key numbers and a number which gives 
the size of the array. For example, the following code sets 
up a 4={note keyboard scan, 


100 DCL NEWKEYS(3) FIXED; 
110 DEL RELKEYS(3) FIXED; 
120 DCL (NUMNEW,NUMREL) FIXED; 


130 

140 CALL SCANDATA; 

150 NUMNEW = SCAN.KEYBOARD(NEWKEYS, 3); 
160 NUMREL = SCAN. RELEASE(RELKEYS, 3); 
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If there are, in fact, four new keys pressed, NUMNEW will be 
4, and the key numbers will be returned in NEWKEYS(0) to 
NEWKEYS(3). They will be arranged from lowest pitch to 
highest. If there is only one new key, NUMNEW will be 1, and 
the key number will be in NEWKEYS(0). Obviously, if there 
are no new keys, NUMNEW will be zero. 


The same interpretation holds for the NUMREL and RELKEYS 
outputs of SCAN. RELEASE. 


DEMOS - A MONOPHONIC SYNTHESIZER 


DEMOS uses three procedures, SCANDATA, 
SCAN.KEYBOARD, and KEY to create a monophonic 
synthesizer. 


DEMO9 looks for just one key at a time, and 
produces only one event at a time. The key 
number of the key that is pressed is used to 
set the frequency for the event. For a 
polyphonic synthesizer, you could ask for 
several keys, and initiate separate events 
for each one. The MAXTASK multitask 
procedures described in the next chapter can 
be used in the scheduling of the multiple 
simultaneous events. 


WRITING TO THE DIGITAL DISPLAY WINDOW 


You may use the DISPLAY procedure to display a 
value in the digital display window on the 
keyboard unit. Three arguments are passed to this 
procedure: the value to be displayed, the decimal 
point position, and a units light code. The 
decimal position indicates the number of digits to 
the right of the decimal point from 4 for .0000 to 
O for 0000. The units code indicates which light 
to the right of the display is to be lit: 1 
indicates the light labeled MILLISECONDS, 2 
indicates the light labeled HERTZ, 4 indicates the 
light labeled ARBITRARY, and 8 indicates the light 
labeled DECIBELS. 


The call to DISPLAY sets up the data. At the next 
call to SCANDATA the correct value will appear in 
the display window. For example, the statement 
below, followed by a call to SCANDATA, would 
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display 100.0 in the window and turn on the ARBITRARY light: 
100 CALL DISPLAY(1000,1,4); 


The DISPLAY.ERROR procedure can be called to display error 
messages. The argument is a number from 0 to 9 which will 
select an error message from "ErrO" through “Err9". Again, 
the error message will appear after the next call to 
SCANDATA. For example, the following statement would display 
Err7. 


100 CALL DISPLAY(7); 

Of course, the program will designate the situation which 

will result in this call. 
DEMO10 =- ANOTHER MONOPHONIC SYNTHESIZER 
DEMO10 is a monophonic synthesizer similar to 
DEMO9 except that it provides the user with 
means to change the overtone content of the 
sound during performance with the pedal and 
the control knob. 
When the user turns the knob, a variable 
called RATIO is changed by KNOB.CHANGE (the 
filtered result of KNOB.POS-KNOB.BASE). 
22 RATIO=RATIO+KNOB. CHANGE ; 
The changing value of RATIO is used in the 
call to SETFRQ as the argument specifying the 
FM ratio. , 
27 CALL SETFRQ(CHAN,KEY(KEYLIST(0)) , RATIO) ; 


The value of RATIO is also displayed each 
time through the loop. 


31 CALL DISPLAY(RATIO,3,4); 


The index limit is set by the position of the 
pedal. 


28 CALL SETILIM(CHAN,SHR(RTEPEDAL.POS,1)); 
Thus, the user of the program will use the 


knob to change the FM ratio, the pedal to 
control the depth of modulation, and the 
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keyboard to instigate new notes. 


INPUT FROM THE RIBBON CONTROLLER 


If a ribbon controller is installed on your keyboard control 
unit, the variables RIB.POS, RIB.BASE, and RIB.ACTIVE will 
be set by a call to SCANDATA. 


First of all, when the ribbon is activated (is being 
depressed), the value of RIB.ACTIVE will be 1. When it is 
inactive, the value of RIB.ACTIVE will be 0. 

If RIB.ACTIVE is 1, RIB.BASE will be set at the base value 
indicated by the place on the ribbon where it was first 
pressed. 


Finally, RIB.POS will be set at the place currently being 
pressed. The value associated with RIB.BASE may be 
subtracted from that associated with RIB.POS to produce 
changing values. 


These three variables have no intrinsic meaning or use. You 
define their usage in your MAX program. 


PITCH BEND INPUT 


Input from the jack labeled.PITCH BEND on the back of the 
keyboard control unit is returned in the variable PBI.POS. 
The neutral value in PBI.BASE is the value of the input at 
initialization time. 


Note that this "PITCH BEND" input does not intrinsically 
control pitch. You must assign it a purpose in your MAX 
program, just as with the ribbon controller input. 


SWITCH INPUTS AND FILTER CONTROL OUTPUTS 


There are a number of variables associated with the switch 
inputs and control voltage outputs on the back of the 
Synclavier (R) II keyboard unit. Once again, it is 
emphasized that these variables have no intrinsic meaning 
and that their names only associate them with particular 
jacks. In a MAX program, the function is assigned by the 
user. 
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Inputs 


During a call to SCANDATA, input is sensed from the six 
SWITCH jacks on the back of the keyboard control unit and 
values are placed in six global variables. The variable 
names are HOLD.SWITCH (from the HOLD input jack), REP.SWITCH 
(from the REPEAT input jack), GLIDE.SWITCH (from the 
PORTAMENTO input jack), SUST.SWITCH (from the SUSTAIN input 
jack), ARP.SWITCH (from the ARPEGGIATE input jack), and 
PUNCH.SWITCH (from the PUNCH IN/OUT input jack). The values 
are zero (or false) if nothing is connected or if the switch 
is not closed, and one (or true) if a switch is connected 
and closed. 


Outputs 


There are eight output digital~to-analog channels which are 
used to output control voltages. These eight-bit DACs are on 
the back panel. In MAX, you can use these control voltages 
for any purpose, such as controlling filters, analog 
synthesizers, or other equipment, by writing a digital value 
or values to one or more of the eight output variables. 


A value of zero will cutput zero volts, while 255 (the 
maximum value) will produce 10 volts. 


The output variable names are LPFILT.OUT (for the LOW PASS 
output jack), HPFILT.OUT (for the HIGH PASS output jack), 
BPFILT.OUT (for the BANDPASS output jack), BANDWIDTH.OUT 
(for the BANDWIDTH output jack), CV.OUT (for the KEYBOARD CV 
output jack), GATE.OUT (for the KEYBOARD GATE output jack), 
TRIGGER.OUT (for the KEYBOARD TRIGGER output jack), and 
RIBBON.OUT (for the RIBBON output jack). The voltages will 
be outputted from the appropriate jack(s) on the back of the 
keyboard control unit after the next call to SCANDATA. 


One application for these inputs and outputs might be to 
produce an interactive audio/visual environment. In this 
scheme, input would come from the movements of an audience 
across light beams with photocells latched into the switch 
inputs. The output voltages would control sets of lights or 
trigger slide projectors. The changing audience input, along 
with any other user input, could thus control both the sound 
coming from the synthesizer and the lighting. 
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6. MAXTASK 


The MAXTASK section of the MAX library allows you to create 
several "simultaneous" events where the processor seems to 
be performing several procedures, or tasks, at once. In 

reality, the processor is "time-sharing" between the tasks. 


With no single program and single sequence of instructions, 
execution can be very difficult to follow. There are also a 
number of ways in which subtle errors or major conflicts can 
be introduced. Therefore, to prevent errors, read these 
instructions carefully. 


WHAT IS A TASK? 

A task is a procedure which has some special features. 
First, it cannot, as a rule, be passed any values; it 
generally uses global values instead. Second, it is invoked 
by a START statement rather than a CALL statement. This 
statement takes the form 

<ln> START <taskname> TASK; 

When a task is started, it proceeds to execute on its own. 
It is terminated by a TERMINATE statement rather than a 
RETURN statement. This statement takes the form 

<1n> TERMINATE TASK; 


Fourth, a task can terminate other tasks by a KILL 
statement. This statement takes the form 


<1ln> KILL <taskname> TASK; 


THE MAIN TASK 

The multiple tasks are performed within an overall MAIN 
task. After the INSERT statements, you include the procedure 
name statement 

150 MAIN: PROCEDURE; 


At the end of the program you include a procedure END 
Statement 


250 END MAIN; 
In the MAXTASK initialization code, there is a START MAIN 
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TASK statement, which invokes your MAIN task. All your other 
tasks are invoked from within this MAIN task. 


THE TIME SHARING ALGORITHM 


The algorithm used to divide the processor's time between 
the multiple tasks is as follows: The processor executes one 
task until it goes into an idle period. Then it starts to 
execute the oldest task that is not in an idle period. 


Each task must go into idle periods frequently for the 
process to work. There is no direct way that a task can be 
pre-empted. An idle period is entered by a call to SUSPEND 
in which the argument specifies a length of time in 
milliseconds. This is similar to a call to WAIT, except that 
SUSPEND creates a delay only in the one task while WAIT 
stops all processing in the entire program. For 
synchronization purposes, you should not call SUSPEND with a 
time value that is less than one clock tick (five 
milliseconds). 


DEMO11 - AN IDIOT'S DELIGHT 


In this program, the procedures MAIN, IDIOT1, 
and IDIOT2 are the tasks. The MAIN task is 
invoked by the MAXTASK initialization code. 
Tasks IDIOT1 and IDIOT2 are invoked by the 
START statements in lines 26 and 27. Both 
call SUSPEND repeatedly. The SUSPEND in 
IDIOT1 creates idle periods of one second, 
and the SUSPEND in IDIOT2 creates idle 
periods of three seconds. 


Run DEMO11 and watch the printout on your 
terminal screen. The nature of a multiple 
task program will be simply and clearly 
demonstrated. 


Both of the tasks will be running, and they 
will print out their messages at the 
different intervals specified. IDIOT1's 
message will be displayed every second, and 
IDIOT2's message will be displayed every 
three seconds. Since both of the tasks are in 
infinite loops, you will have to press the 
LOAD button on the computer to kill this 
program. 
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In the example programs in the MAXIO chapter, you saw the 
use of SCANDATA combined with repeated five-millisecond 
WAITs. The WAITs keep things correctly synchronized. By 
using SUSPEND instead of WAIT, you can synchronize several 
simultaneous events, as well as satisfy the requirement of 
frequent idle periods. 


It is easy to write a task that waits for an external event 
to happen but does not tie up the system while waiting. 
First of all, determine a realistic scanning rate required 
by the situation. Then write a loop that checks for the 
input, and iteratively calls SUSPEND until the necessary 
input conditions are satisfied. Examine the following: 


THE WRONG WAY to wait for a pulse 


100 DO WHILE (INPUT.SIGNAL<100); /* WAIT FOR PULSE */ 
110 END; /* CANNOT USE THIS STRUCTURE 
IN INTERRUPT ENV. */ 


THE RIGHT WAY to wait for a pulse 


100 DO WHILE (INPUT.SIGNAL<100); /* WAIT FOR PULSE */ 
110 CALL SUSPEND(50); /* GIVE OTHER TASKS A CHANCE TO RUN */ 
120 END; 


Each task may consist of any legal MAX or XPL statements, 
including START and CALL statements. You should not call 
WAIT in a task, because it monopolizes the processor for the 
specified length of time and does not allow other tasks to 
proceed. (Of course, there may be a situation where this is 
the desired effect.) You should also avoid the use of INPUT 
and LINPUT statements in a task, since these statements put 
the whole processor into a idle state until the input is 
made. Similarly, PRINT statements dedicate large amounts of 
time for typing the characters, and can skew the execution 
scheduler. 


DEMO12 - SIMPLE POLYRHYTHMS 


Now examine and run DEMO12. It is similar in 
structure to DEMO11, with two tasks within 
the MAIN task. These tasks, however, include 
calls to MAXSYN procedures which play a set 
of pitches randomly chosen from a specified 
list. The lower melody line (LINE1) maintains 
a constant tempo of one pitch per second, 
while the other (LINE2) changes tempo several 
times. 
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MAXTASK ERRORS 


As you may have seen when you ran DEMO12, the final result 
was MAXTASK Error 4, which indicates that all tasks are 
terminated. Error 4 is often a normal termination result. 


The complete set of MAXTASK errors is as follows: 
Error 1: Too many tasks active. The default limit is 18, but 


this may be expanded by increasing the value in the 
NUM.TASKS declaration in the MAXTASK code. 


The default limit of 18 tasks has been chosen so that there 
may be a task for each of 16 voices, plus a main task, and 
one extra task. 


Error 2: Error in starting of task. The START statement has 


ee eee 


eee eee 


increasing the value in the LEN.STACK declaration in the 
MAXTASK1 source code. Refer to the section of the Scientific 
XPL/4 Reference Manual under PDL for more information on 
push down stack requirements. 


ee ee 


all tasks have been terminated. This may be a normal result 
in some instances. 


incorrect format. 


AUTOMATIC LOCAL VARIABLES 


A local variable is one that is known only within its own 
procedure or task. In DEMO11 and DEMO12, local variables are 
declared within the tasks. This method works fine when there 
is only one copy of a task active at a time. If, however, 
there is more than one copy active, then the local variables 
must be made distinct for each of the copies, or they will 
modify each other. To accomplish this, the local variables 
are declared AUTOMATIC. 


The term AUTOMATIC comes from PL/1, and means that these 
variables are AUTOMATICally allocated into new locations 
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wnen each new copy of the task is invoked. An AUTOMATIC type 
declaration takes the form 


<1ln> DCL <variable> AUTOMATIC<n>; 


where <n> stands for a number from 1 to 6, representing each 
of the six variables. Thus, you may use up to six AUTOMATIC 
variables per task. Each variable is a fixed point scalar. 
This limit of six is not too severe, as only one or two 
channel numbers, and one or two pitch codes need be declared 
AUTOMATIC in most cases. Event tasks will also generally 
share a large number of global variables. 


DEMO13 = ONE TASK, MANY COPIES 


Examine the program DEMO13. This program has 
a task called DO.AN.EVENT, which performs a 
single event. The MAIN task creates several 
copies of DO.AN.EVENT in order to play 
several events at the same time. Thus the 
variable CHAN must be declared AUTOMATIC, 


19 DCL CHAN AUTOMATIC1; 
to make it local to each copy of the task. 


Push the RTE pedal all the way down and run 
DEMO13. It will take about 55 seconds to 
compile the program and set it up for 
execution, since all three library sections 
are included. : 


This program plays complex overlapping 
events. The pitch for each event is randomly 
selected from a list cof pitches. The RND 
function is also used in the selection of the 
waveform, FM ratio, volume and harmonic 
envelopes, and suspend times for each event. 


The pedal position controls the speed of the 
events. When the pedal is down, the events 
are long and infrequent. As the pedal is 
raised, the events become shorter and more 
frequent. 


To stop the program, hold down any button in 
the ENVELOPE panel. 
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PASSING VALUES TO A TASK 


It is sometimes necessary to send values to a task. As 
stated above, an argument list cannot be used for this 
purpose. However, you can use the SET clause in the START 
statement to set initial values for the automatic variables 
of a task. The statement takes the form 


<1ln> START <taskname> SET(<v1>,<v2>,<v3>,<v4>,<v5>,<v6>) TASK; 


where the expressions <vi> through <v6> stand for values to 
be loaded into the variables AUTOMATIC? through AUTOMATIC6 
for each copy of the task. You must specify six values even 
if the invoked task does not have six automatic variables. 


DEMO14 - A POLYPHONIC SYNTHESIZER 


DEMO14 is a powerful demonstration of the MAX 
potential, because it shows how to construct 
a polyphonic synthesizer producing several 
simultaneous events with complex 
multi-segment envelopes. It also shows how to 
use the SET clause. 


The loop in the MAIN task has a real-time 
scanning rate of 5 milliseconds: 


4g CALL SUSPEND(5); 


It scans the keyboard and checks for up to 
ten pressed keys. If any of the ten keys is 
in the bottom octave of the keyboard, its 
number will be used to select between preset 
timbres, mimicking the classic Hammond B-3. 


The key number determines the timbre number, 
and a number from 1 to 12 is then displayed 
in the digital display window. 


57 IF KEYLIST (J)<12 THEN DO; 
58 TIMBRE#=KEYLIST (J) 
59 CALL DISPLAY(TIMBRE#+1,0,0); 


The variable TIMBRE# is then used to select 
between a number of stored complex envelopes, 
as well as a set of ratios. The complex 
multi-segment envelopes are created by 
stepping through parts of a data list which 
specifies a rate and a limit for each of six 
independent segments. (We selected six 
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segments for this example. Any number could 
have been chosen.) 


TIMBRE# values 3, 6, 9, and 12 produce a 
complex envelope with a "re-iterate" sound, 
or echo delay, when you play a quick run on 
the keyboard. TIMBRE# values 2, 5, 8, and 11 
produce a long attack followed by a sudden 
change in the FM index. TIMBRE# values 1, 4, 
7, and 10 produce a volume envelope with a 
second (smaller) peak. 


The pressing of any key above the bottom 
octave will start a new task which will be 
played with the current timbre. The new key 
number is passed to the DO.AN.EVENT task in a 
SET clause: 


61 ELSE START DO.AN.EVENT SET(KEYLIST(J),0,0,0,0,0) TASK; 


The value of KEYLIST (J) will be placed in 
variable AUTOMATIC1, which is named KEY# in 
the event task in line 26. 


After an event task has started and a channel 
has been allocated for it, the program lights 
a button in the TRACKS button panel. When the 
event is finished and the channel has been 
freed, the program turns out the light. Thus, 
the TRACKS lights give a visual indication of 
the number of multiple task events in 
progress, as well as the number of channels 
in use. 


An important detail to note is that due to 
the way AUTOMATIC variables are implemented, 
they cannot be used as indices of DO loops. 
Thus, the loop through the segments of the 
envelope is written as a direct IF-THEN-GOTO 
loop. 


Terminate DEMO14 by pressing any button in 
the ENVELOPE button panel. 
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7. A COMPREHENSIVE EXAMPLE 


DEMO15 provides a good complete demonstration of many of the 
features of MAX. The basic form of this program resembles 
that of DEMO13 and DEMO14: A loop in the MAIN task starts 
multiple copies of an event task. 


The control knob, digital display window, and the buttons in 
the ENVELOPE panel are used to change timbre parameters, in 
a simplified version of the Synclavier (R) II real-time 
system. Only four buttons are used - VE ATTACK, VE FINAL 
DECAY, HE ATTACK, and HE PEAK. The scanning loop in the MAIN 
task watches for one of these buttons to be pressed, to 
select which value is to be changed. As the KNOB.CHANGE 
input from the control knob is added to the selected value, 
the result is displayed in the digital display window. 


The pedal controls the rate at which copies of the event 
task are started, and the notes from the keyboard are placed 
in an eight-note first-in first-out queue. 


The event task first selects a channel. Then it selects a 
pitch from the FIFO stack, to which it adds, or subtracts, 
an interval randomly chosen from a list of approximately 
eonsonant intervals. It then performs the event, using the 
current values for the parameters being changed by the knob, 
along with some random choices. 


As in DEMO14, the TRACKS buttons are used to indicate the 
number of events active. The envelope rates and the SUSPEND 
delays have been chosen so that generally no more than 
twelve events are happening at once. (If you have an 8-voice 
system, only eight events will occur.) Since the default 
maximum number of tasks is eighteen, exceeding this limit 
will cause MAXTASK Error 1. Owners of 24-voice or 32-voice 
systems may wish to modify this default in the source code 
as described above under MAXTASK Error 1. 


This example is provided as a baseline for experimentation 
with interactive compositional systems. For example, the 
FIFO queue of pitches is very interesting to experiment 
with. Play one key eight times, and the queue will contain 
only that pitch. The events will be played with random 
eonsonant pitches around it. Play an eight-note scale, and 
the next eight events will be based on eight separate 
pitches. Change the volume attack from 300 ms (the initial 
value) to 0 for percussive sounds. Change the harmonic peak. 
Alter the rate of event initiation by pushing the pedal up 
and down. 
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To stop the program, press the STOP button under RECORDER 
CONTROL. The events will decay to zero. 


This example incorporates most of the features of MAX, but 
it still represents only a small portion of the capabilities 
of MAX. As you develop your own MAX system, you will 
discover a wide range of ways to interact with the 
synthesizers and a large number of applications. 
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APPENDIX ONE: SPL COMPATIBILITY 


MAX is upwards compatible with SPL, the Sound Producing 
Language developed for the Synclavier I synthesizer 
(1977-79), which has been frequently used in academic 
environments for research and computer aided instruction, as 
well as for composition. MAX improves on SPL in several 
important ways. 


First, MAXIO and MAXTASK are completely new. SPL provided 
only the procedures for controlling the synthesizer. Since 
there was no built-in capability for multiple tasks in SPL, 
overlapping or interrelated events were difficult, though 
not entirely impossible, to program. 


In MAX, frequency specification has been made easier and 
more flexible. In SPL, the carrier and modulating 
frequencies were on entirely different channels. An integer 
frequency had to be directly specified for each. In MAX, the 
FM pairs are on the same channel and the frequency of the 
modulator can be specified either directly or by ratio. 
Also, there are the four new frequency conversion functions. 


In SPL, the WAIT procedure was passed a time in 
centiseconds, while the RATE procedure accepted times in 
milliseconds. In MAX, all times are specified in 
milliseconds for consistency. 


This manual completely supersedes the SPL Reference Manual. 
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/® MAX DEMO 1 
INSERT ‘MAXSYN‘; 


ocL I FIXED: 
DCL CHAN FIXED, 
DCL FREQ FIXED; 


CHAN@ALLOCATE: 


CALL SETVOL (CHAN, 283); 
CALL SETELIM(CHAN. 255); 


po I=? Ta 23; 
FREG=RND(2200, 8 B00); 
CALL SETF' Rat Chane ERTZ(FREG), 1000); 
CALL WAIT(300); 

END; 

CALL ZEROSYN: 


26 JANUARY 1962 #/ 


=-j- 


/* MAX DEMO 2 30 JANUARY 1962 #/ 


INSERT ‘MAXSYN’; 


pc. I FIXED; 
DCL CHAN EpteD 
DCL NOTE IXEDi 
CHAN@ALLOCATE:; 


CALL SETVOL (CHAN, 255); 
DO ist TO 25 


i 
NOTESRND (12, 48); 
CALL serena. GHA N. KEY { NOTE), 1000); 
L bel — AN, SO); CALL SETELIM(CHAN. 255); 
i 
CALL SETERATE(CHAN, 1000); CALL SETELIM(CHAN, 0); 
CALL WAIT(1000); 


END; 


~t- 


/* MAX DEMO 3 2 FEBRUARY 1962 */ 


INSERT ‘MAXSYN‘: 


DCL I FIXED: 

DCL CHANL AEE 

DCL CHAN2 FI 

Moe ALTO. NOTES EPL OATING DATA 


é. 6.0 9. 
beL BASS. NOTES FLOATING Te 


07, 7.00, 6.04, 7.07, 6.04, 6,07, 7.00, 6.07. 6. 07; 


CHANI=ALLOCATE: 
CHAN22ALLOCATE; 

CALL SETVOL(CHANI, 235 
CALL SETVOL (CHAN2, 18 


CHAN1. PCH( ALTO. NOTES( 1) 
 —iliia (BASS. NOTES( 1) 


END: 
CALL ZEROSYNi 


oo. 8.09%. 8.00. 8.04. 9.00, 8.00, 


LOAD THE MAX1 SECTION OF THE LIBRARY 
LOOP INDEX #/ 

CHANNEL NUMBER «/ 

PITCH IN HERTZ TIMES 10 #/ 

GET A CHANNEL ¥/ 


OPEN _UP VOLUME #/ 
SET ENVELOPE CIMtt TO MAXIMUM #/ 


FLAY 23 ae E pL EghEs af 
GET A RANDOM 


NUMBER 
PUT THIS PITCH ae SPIRaT CHAN #/ 
WAIT HALF A SECON 


SHUT EVERYTHING DOWN #/ 


GET MAX SYNTH ROUTINES #/ 


Loap eat" e/ 
CHANNEL NUMBER 
CLAVIER KEY NUMBER FOR NOTE #/ 


ALLOCATE 4& CHANNEL 
EN THE VOLUME FOR THE CHANNEL +/ 


PLAY 25 NOTES #/ 
GET A NUMBER SETWEEN !2 AND 46 4/ 


SO _ MS _ ATTACK #/ 
WAIT FOR he a */ 
1 SEC DECAY #/ 
WAIT FOR Deca¥ */ 


GET MAX SYNTH ROUTINES #/ 


LOGP INDEX #/ 
ALTO CHANNEL #/ 
BASS CHANNEL #/ 


. 00); 
. 07); 


ALLOCATE A CHANNEL fan ALTO #/ 
ALLOCATE 4 CHANNEL F 


BASS */ 
FULL, VOLUME _FOR ScTO" $ af 
LOWER VOLUME FOR BASS ¥*/ 


FADE IN OVER 2 SECONDS */ 
TO MAX ENVELOPE LIMIT #/ 
SET FOR THE 1TH NOTE #/ 
PLAY FOR HALF A SECOND +#/ 
SHUT DOWN *«/ 


DEMO4 
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7% MAX DEMO 4 

INSERT ‘’MAXSYN‘; 
DCL, | FIXED 
DCL CHAN FI 
DCL FREQ. LI 
DCL TIME. L 


i* Ghee 
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CHAN=ALL 
CALL SETVOL 


DO I=1 TO 9; 
CALL SETFRQ@(CHAN. FREQ. 
CALL SETERATE(CHAN, 50 
CALL SETIRATE (CHAN, 50 
CALL WAIT(SO); 


i 
am 


HAN, 255): 


CALL Spe STAN: TOGes 
CALL SETI (CHAN, 1500, 0 
eupe WAIT(TIME. LISTCI 


-l1- 


/* MAX DEMO S 
INSERT ‘MAXSYN’; 
FIXED;:, 


DCL I 
DCL CHAN FUSER? 
DCL WAVE 


30 JANUARY 1962 #/ 


444444444 
ie oe Dee ee oe eee nee 
Be oe du: Se Se Se Ore Se 
AOmAMMmmmm 
Greece en 
Ee ed te tt eg 
OUNHOHUHUM 
A4A4s4444 


LIST(1I), 1000); 
»; CALL SETELIM(CHAN, 255); 
); CALL SETILIM‘(CHAN, 30); 


3 
da 
d)3 


& FEBRUARY 1982 #/ 


XED; 
DCL HARMS DATA (4, 1000, 500, 333. 250) i 


WAVE=SETWAVE (HARMS ) i 
CHAN=ALLOCATE: 

CALL SE THSEL (CHAN, WAVE); 
CALL SETVOL (CHAN, 255); 


pO I=1 TO 25 


CALL SETFRQ( 

CALL SETE(CHAN, SO, 255) 

CALL WAIT(SO); 

CALL SETE(CHAN, 1000, 0 
— WATT<( 1000); 


-l- 


/* MAX DEMO & 
INSERT ‘MAXSYN’; 
DCL TI F 
DCL CHAN F 
DCL BE RAve®) . 
DCL HARMS2 DATA (5,1 
WAVE 1 =SETWAVE (HARMS1 
WAVE2Q=SETWAVE (HARMS2 
CHAN=ALLOCATE: 

CALL SETVOL (CHAN, 255); 


24 TO 48; 
ALL SETFRQ@( CHAN. KEY ¢ 
IF I MOD 2 =O THEN CA 


€LSE 

CALL SETE (CHAN, SO, 255 

CALL WAIT(50) 

CALL SETE (CHAN. 700.0); 
ene WAIT(700); 


CHAN, SR om ead ORs 


di 


& FEBRUARY 1962 #/ 


: 

500, 333, ee 
00, 1000. 0, 500); 
1), 1000); 


LL SETWSEL (CHAN, WAVE] ); 


CALL SETWSEL (CHAN, WAVE2); 


\ F 


; 


GET MAX SYNTH ROUTINES #/ 


LOOP INDEX #/ 
CHANNEL NUMBER */ 
FREQUENCIES 4#/ 
DURATIONS #/ 


ALLOCATE A _ CHANNEL #/ 
OPEN THE VOLUME FOR THE CHANNEL 2#/ 


WE HAVE % NOTES TO PLAY #/ 
SET FOR_THE 1’TH NOTE #/ 
SO _ MS ATTACK #/ 

INDEX ENVELOPE #/ 

WAIT FOR ATTACK */ 

1 SEC DECAY #/ 

INDEX ENVELOPE #/ 

WAIT FOR DECAY #/ 


GET MAX SYNTH ROUTINES #/ 


LOOP INDEX #/ 

CHANNEL NUMBER #/ 
WAVE MEMORY NUMBER #/ 
HARMONIC DATA #&/ 


GET A WAVE MEMORY My 
ALLOCATE A_CHANNEL 
LINK CHANNEL AND TAVE MEMORY #/ 


OPEN THE VOLUME FOR THE CHANNEL * 
PLAY 25 ron es NOTES #/ 


WAIT Fg aya / 
1 SEC DECAY 
WAIT FOR Decay a/ 


GET MAX SYNTH ROUTINES #/ 


LOOP INDEX */ 

CHANNEL NUMBER 

WAVE MEMORY NUMBERS a/ 
WAVEFORM #/ 

WAVEFORM2 *#/ 


GET & WAVE MEMORY #/ 
AND ANOTHER #*/ 
ALLOCATE A CHANNEL #/ 


OPEN THE VOLUME FOR THE CHANNEL #/ 


PLAY_2 OCTAVES OF KEYS */ 
SET THE FREQ #/ 
PICK A WAVE MEM #/ 


SO MS ATTACK #/ 
WAIT an ener a/ 
0.7 SEC DECAY #/ 
WAIT FOR BECAY e/ 


ONO LON VaUN-O0D NO Veune 


POPIRI RR me te poe pore ve 
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2 
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/@ DEMO 7 FEBRUARY 1962 #/ 


/@ OVERLAPPING NOTES BY USE OF ‘’ALLGCATE’ AND ‘FREECHAN’ 


INSERT ‘MAXSYN’; 
I FIXED: 
An FIXED: 

BCL NOTES FLOATING DATA 


/@ 


GET MAX SYNTH ROUTINES 2/ 


(8.00. 9.02, @.04, @.06. 8.08 8.10, 9.00); /@ & SIMPLE SCALE #/ 
TO & /@ LOGP OVER NOTES #/ 
me CRANEALLOCATE /# GET A_NEW CHANNEL #/ 
CALL SET OGL CEHAN, 253); /*@ OPEN THE NEW CANNEL af 


CALL SETFRQ( CHAN, PCH(NOTES(1)), 4000); /e@ SET FOR THE I’°TH NOTE #/ 
Gat SETTICHAN, 20; 100) 7 INDEX ENVELOPE. #/ 
’ J 
WAIT( ; fo WAIT FOR ATTACK @/ 

CALL SETE(CHAN, 4000. 0); /@ 4 SEC DECAY e/ 

A SET 2 4000, 0; /@ INDEX ENVELOPE # 

ate WAIT (00); /@ WAIT UNTIL NEXT Kore. BUT LET THIS ONE CONTINUE «/ 
END; 

-{- 

sf MAX JANUARY 1992 2#/ 


Mo 8 31 
/@ CRAMPLE OF ‘RANDOM WALK’ COMPOSITION #/ 


PIL CS) tee er ered 
NOUSUNKOCINIC SUN DION uae 


PRD 


INSERT ‘MAXSYN’: /@ GET MAX_SYNTH ROUTINES «# 
INSERT “MAXIO’: 7*® GET CONTROL AND 1/0 FUNCT IONS “/ 
DEL (WAVE1L, CHAN) FIXED; /* WAVE AND CHANNEL NUMBERS ¢/ 
NOTE FIXED: /*® NOTE NUMBER 
Bet THRESH FIXED: /* DECISION FARES HOLD #/ 
DCL HARM DATA (6. 1000, 500, 333, 250. 200, 167); 7 HARMONIC CONTENTS #/ 
GHARTACLOGATE, “CALL SETVOL (CHAN 289); ts rae ovate. TE CH NNEL AND SET VOLUME 
Is: 3 ° F ® ALLOCA A kL. * 
CALL EMITWSEL (CHAN, WAVEL ) /@ LINK CHANNEL TO WAVE MEM e/ 
NOTE=24; /* START THE RAN WALK ON f 
CALL SCANDATA: a Go UT ee a LE Oe 
DO WHILE (PANSW(O)= 4 REPEAT UNTIL BUTTON _IN PANEL P / 
CALL SETPROCCHAN. KEY (NOTE), 1000; 7 CONVERT KEY Non Te PREG AND ser’, “EnERrs 
ACL SETE (CHAN, 0, 255 /®@ FASTEST ATTACK #/ 
CALL WAIT(5); 7*# WAIT FOR ATTACK. sh 
CALL SETE (CH HAN, $00, 0 7 HALF SEC DECA' 
CALL WAIT (SHC TRTEPEDAL, POS, 1)+S0); /* UGE PEDAL Poe. TO’ FIND WAIT TIME «/ 
THRESH = 350+(KNOB. POS-KNOB. /* COMPUTE DECISION THR * 
ELSE Di 1, 100)<THRESH THEN MOTESNOTES: ea dist-ce- bo ay HRESH 60 UP oy 
—1: * ef 
TF NOTE<O6 THEN NOTE@=24,- 7* LIMIT R WALK # 
IF NOTESSS THEN NOTE#24; /* LIMIT Top GP END #7 os 
eat SCANDATA: /*@ SCAN INPUTS AGAIN #/ 
sy 
-1l- 
7*® MAX DEMO 9 JANUARY 1982 
7*® EXAMPLE OF MONGPHONTE SYNTHESIZER EMULATION #/ 
INSERT ‘MAXSYN’: /4@® GET MAX SYNTH ROUTINES 6/ 
INSERT ‘MAXIO’; /@ GET CONTROL AND I/0 FUNCTIONS 4/ 


/* NUMBER OF NEW KEYS #/ 


DCl. HARM DATA (6, 
Oc REVUISTIOD. /7* HOLD RETURNED KEY® #/ 


WAVE 1=SETWAVE (HARM); 7* STANDARD CHANNEL SETUP +/ 
CHANRALLOCATE, CALL SETVOL (CHAN, 255); 
CALL EMITWSEL (CHAN, WAVE1): 


CALL eae 4* DO INTIAL _SCAN #/ 


oc. 1 FIXED: 
DCL (WAVEL. GRAN FIXED: 
2, 1900. $00, 333. 230; 200. 167); 


pda Rees (PANSW(O) /@ REPEAT UNTIL PANEL O BUTTON is PUSHED «/ 
T=s¢al KEYBOARD (RELIST. 0); /* TEST FOR A NEW KEY ON Saoxce */ 
IF 0 fe EN DO: /# TEST FOR SOMETHING TO DO 
(5 eee een Rey Rev E TS TCO eCOOdk /* SET THE FREGUENCY #/ 

en a's SETE (CHAN, 0. 295) 4 FAST ATTACK #/ 

CALL WAIT(S) /#@ WAIT FOR ATTACK #/ 
EN so SETE (CHAN. 1000, 0): /* 1 SEC DECAY +#/ 
CALL WAIT(S); 7 WAIT ONE CLOCK PULSE SEFORE SCANNING AGAIN #/ 
CALL SCANDATA, 7% SCAN AGAIN #/ 


ENA; /*# OF REPEAT LOOP #/ 
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/* MAX DEMO 10 10 FEBRUARY 1982 #/ 


/* EXAMPLE OF _MONOPHONIC SYNTHESIZER EMULATION «/ 


/* WITH REAL TIME EFFECTS #/ 


INSERT ‘MAXSYN': 
INSERT ‘MAXIO‘: 


DEL 7 EIXeE 

DCL (WAVE1, CHAN) FIXED 

DCL Spel DATA (&, 1000, 500, 333, 280, 200, 167): 
DCL RATI FIX Bi 

DCL REYLIST«O? FIXED 


WAVE 1=SETWAVE (HARM): 

CHAN=ALLOCATE; CALL SETVOL (CHAN, 255); 
CALL _ EMITWSEL (CHAN, WAVEL); 
RATIO=1000; 


CALL ekonevaron aa 3.405 

CALL SCAN 

DO WHILE CPANSW(0)=0); 
RATIO=RATIO+KNOB. CHANGE: 
IF RAVIOCO THEN RATIO=0; 


I=SSCAN. KEYBOARD(KEYLIST, 0); 
IF I30 THEN DO; 
CALL SETFRG( CHAN, KEY (KEYLIST(0O)),RATIO 
CALL SETILIM(CHAN, SHR(RTEPEDAL. POS, 1)) 
CALL Bor ele an 0.255); 
CALL WAIT ¢ 
CALL SETE (CHAN, 1000, 0)3 
END; 
CALL WAIT(S); 
CALL DISPLAY(RATIO, 3. 4): 
mn SCANDATA; 
=N}), 


-1- 
7+ DEMO 11 FEBRUARY 92 #/ 
/* ILLUSTRATION oe MULTIPLE TASKS #/ 
INSERT ‘MAXTASK ‘; 
MAIN: PROCEDURE: 
IDIOT1: PROCEDURE: 
lee (I,J) FIXED: 
=0; J=0; 
bo Aaah ti 
‘Th 
END; 
END IDIOTI; 
IDIOT2: prea 
OCL 


END: 
END IDIOT2: 


START IDIOTi TASK: 
START IDIOT2 TASK: 


TERMINATE TASKi 
END MAIN; 


/* 
“* 


GET MAX SYNTH #/ 
GET CONTROL AND I/O FUNCTIONS */ 


HOLDS KEYBOARD SCAN OUTPUT #/ 


THE FM RATIO #/ 
NEW KEYS LIST */ 


STANDARD CHANNEL SETUP #/ 


INITIAL RATIO IS 1.000 #/ 


DISPLAY THE RATIO #/ 

DO _ INTIAL SCAN #/ 

REPEAT UNTIL PANEL 0 BUTTON IS PUSHED *#*/ 
UPDATE RATIO #/ 

LIMIT TO ZERO #/ 


TEST FOR ANY _NEW KEYS ON CLAVIER ¥#/ 
TEST FOR SOMETHING TO DO #/ 

SET THE FREQUENCY #/ 

SET_HARMONIC LEVEL #/ 

FAST ATTACK */ 

WAIT FOR ATTACK #/ 

1 SEC DECAY *#/ 


WAIT ONE CLOCK PULSE BEFORE SCANNING AGAIN #/ 


SHOW NEW RATIO */ 
SCAN AGAIN #/ 
OF REPEAT LOOP */ 


THIS IS THE MAIN TASK #/ 
THIS IS SUBTASK 1 */ 


REPEAT FOREVER +#/ 


THIS IS SUBTASK 2 #/ 


START THE IDIOTS YAKKING *«/ 


DONE WITH MAIN */ 


on 


ee 
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HK OGTNH TSUN OL ONS USUNKOOOuTESOME 
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/# MAX DEM 3 MARCH G2 #/ 
/* TeLUSTRATION OF PARACLEL MUSICAL LINES #/ 


INSERT ‘’MAXSYN’; 
INSERT ‘’MAXTASK’: 


DCL KEYLIST! DATA (12. 16, 18,19, 21, 
DCL KEYLIST2 DATA (24, 28, 31, 33, 36; 30. 49, 45. 4@): 


MAIN: PROCEDURE; 


LINE1: PROCEDURE: 
OCL (CHAN, I) FIXED; 
CHAN@ALLOCATE: 
<= a lacie CALL SETE(CHAN. S00. 255); 
CALL SETFRG(CHAN, KEY (KEYLIST1 (RND(O. 3))). 1000); 
a SUSPEND( 1000); 
CALL SETE (CHAN, 300.0); 
CALL SUSPEND(300); 
CALL CLEANUP (CHAN): 
TERMINATE TASK: 
END LINEI. 


LINE2: PROCEDURE; 
DCL (CHAN. I) FIXED: 
CHAN@AI_LOCATE: 
ae Pe ee ee CALL SETE(CHAN, 500, 2535); 


cath IBETERQ (CHAN, KEY (KEYLIST2(RND(O, 8), 1000); 


CALL SUSPEND (1000); 


CALL SETE (CHAN, 300, 0); 
CALL pty Ae lB 
Cc get alae 


START LINE1 TASK; 
START LINE2 TASK; 


TERMINATE TASK, 
FND MAIN: 


/* PITCHES FOR BASS #/ 
/* MELODY PITCHES #/ 


/*# THIS IS THE MAIN TASK #/ 
/* LOWER LINE, 1 PITCH PER SECOND #/ 


/# UPPER LINE: 1, 2. 4 PITCHES/SEC +#/ 


/# START EACH LINE #/ 


7*® DONE WITH MAIN #/— 
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1 /* MAX DEMO 13 S MARCH 82 #7 

2 /* COMPOSITION WITH OVERLAPPING EVENTS. RTEPED CONTROLS SPEED. #/ 

3 /* PEDAL DOWN=> INFREQUENT LONG EVENTS UP=> RAPID SHORT EVENTS #/ 

5 INSERT ‘MAXSYN’: 

& INSERT .’MAXIO“ 

Z INSERT ‘MAXTASK ‘ 

a MAIN: PROCEDURE; 7* THIS IS THE MAIN TASK #/ 

1 DCL WAVE(2) FIXED: 7*® HOLDS WAVEFORM MEM NUMBERS #/ 

12 DCL HARMO DATA (1, 1000): /*# WAVE O IS A SINE WAVE +#/ 

13 DCL HARM1 DATA (3, 1000, 0, 300) /* WAVE 1 HAS 3RD HARM #/ 

14 DCL HARM2 DATA (5, 1000, 200, 100, 50. 300) ie WAVE 2 IS COMPLEX #/ 

15 DCL RATIOS DATA (1000. 1500, 2000, 1000, 1090, 1002, 0998; PICK ONE */ 

AG DCL PITCHES FLOATING DATA (8. 00, 8. 07,9. 00, 7.09.8. 01, 03.9" 05,9. 04); 

18 DO. AN. EVENT: PROCEDURE /* THIS TASK WILL PROCESS AN EVENT */ 
ay DCL CHAN AUTOMATIC! 
2) CHAN=ALLOCATE: /* GET US A CHANNEL #/ 
22 IF CHAND>=O_ THEN DO; 

23 CALL SETWSEL ( CHAN, WAVE (RND(O, SDs /* PICK & WAVEFORM MEM AT RANDOM #«/ 
es CALL SETVOL (CHAN. 255) /* OPEN UP OUR VOLUME #/ 
25 CALL SETERATE (CHAN, 100+SHL (RTEPEDAL. POS, 2)); 

ge CALL SETIRATE (CHAN, 100+SHL(RTEPEDAL. POS, 2) )i 

3R CALL SETFRQ@(CHAN. PCH(PITCHES(RND(O, 8))), RATIQG(RND(O, 7)) di 

2? CALL ee Oe Arana o" vi /* PICK ENV PEAK #/ 

30 CALL SETILIM(CHAN, RND(O, 30) 7# PICK ENV PEAK #/ 

31 CALL SUSPEND(250+RTEPEDAL. POS+RTEPEDAL, POS#RND(O, 150)/10); /* WAIT .5 TO 3.8 SECONDS #/ 
33 CALL SETELIM(CHAN. 0); /* START TO SHUT OFF QUR CHANNEL #*/ 
34 CALL SETILIM( CHAN, RND(O, 5?) 

35 CALL SUSPEND(200+RTEPEDAL. POS*RND(0, 259/10); /# WAIT .2 TO 1 SECONDS #/ 
ae ene FREECHAN (CHAN); /* GIVE UP QUR CHANNEL #/ 

338 TERMINATE TASK; /7# THIS EVENT IS DONE #/ 
a5 END DO. AN. EVENT: 

41 WAVE (0) =SETWAVE ( HARMO). /* SET UP WAVEFORMS +#/ 

42 WAVE (1) =SETWAVE (HARM ) 
a WAVE (2) =SETWAVE (HARM2); 
45 CALL SCANDATA: 
46 DO WHILE (PANSW(O)=50); /% EVENT INITIATING LOOP #/ 
47 START DO. AN. EVENT TASK 
48 CALL SUSPEND ( 100+SHL (RTEPEDAL POS. 3)); /% WAIT A BIT #/ 
e, aa SCANDATAi 

90) ; 


31 
52 TERMINATE TASK: #® DONE WITH MAIN #/ 
Su “ND MAIN; 


a 
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/* poss DEMO 14 24 MARCH 82 #/ 
/* bb alge S synthesizer with multi-segment envelopes #/ 
/* om octave of keyboard selects timbre, lixe on Hammond B-3 +#/ 


INSERT Pick) a 
INSERT ‘MAXIO’ 
INSERT “MAXTASK ‘i 


MAIN: PROCEDURE: /*® MAIN TASK #/ 


1 
2 
3 
4 
3 
& 
Z 
8 
16 
11 OCL RATIOS oare 2000. 27a spoer ceo 1 
12 DCL ENVE ATA (10) 255: 500,100. 500,100, 100,200, 300,50, 100, 0, 
13 2000. 255, 1000150. 300,253. 100, 100. 109+ 8 100. 0; 
aes 10,253, 9300.0, 10,195. 553° 0, 10,105, 500.0 
S 
16 DCL ENVI DATA (10.0, 500.12. 500.98, 500, 3: is 300,10. 100.0, 
17 2000, 240. 1000.100. 300,200, 100.150, 100,70. 100,0, 
18 10,100. 500,10. 10.75, 300.6 10.530. 500.0); 
19 OCL TIMBRE® FI 3 
20 CL MASK DATA ‘(1s 2) 41 Os 16, 32, 64, 128, 256, $12, 1024, 2048, 
al- AO76, Bie. Oss: 327468)i 
22 OCL KEYLIST(9) FIXED: /* TEN FINGERS #/ 
ey bet (T,W) FIXED: 
25 BO. AN, EVENT: PROCEDURE; /* THIS TASK WILL. PROCESS AN EVENT < / 
26 DCL KEY# AUTOMATIC1: 
2? DCL CHAN AUTOMATIC2: 
28 DCL 1 AUTOMATICI 
= DeL v AUTOMATIC4: 
31 CHAN@ALLOCATE; /*@ GET US A CHANNEL #/ 
a2 IF CHAND>=0 THEN DO: 
33 IF CHAN<32 THEN Bee ee a) Ebi enc ay eure. abe. (eanhoa 
34 ELSE DISPp 7 Nctliaghditiaiahciaiiaibenininsaibimagsipibinaiin: 12); 
35 CALL SETVOL (CHAN, 255); OPEN UP OUR VOLUME #/ 
36 CALL SETFRG( CHAN, KEY (KEY#). RATIOS( TIMBRE#/3) ); 
a7 J=e(TIMBRE®# MOD 3)#12: 
38 I=0; LOOPSTART 
39 CALL SETE( CHAN, ENVE( J). ENVE(J+1)? 
40 CALL SETI (CHAN, ENVI (J), ENVI(U+1) 9: 
mS Lose SUSPEND (ENVE (J) 33 /# WAIT FOR STAGE «/ 
2 a J a? 5 
43 I=I*li IF I<¢=5 ae GOTO LOGBPSTART: 
ag CALL FREECHANTCH AN /* etye uP OUR CHANNEL «#/ 
45 IF CHANC32 THEN DISPLAYSW(3)=DISPLAYS WwW (3) SNOT (MASK ( CHAN. 
ao — DISPLAYSW(5)=DISPLAYSW(S) SNOT (MASK COMANTA) /2) 9: 
40 TERMINATE TASK: 3 /* THIS EVENT IS DONE */ 
a END DO. AN. EVENT: 
nO 
5} TIMBRE #= /* SET INITIAL TIMORE #/ 
Se CALL BISP.AY (TIMBREW+1, 0. 0): /* DISPLAY NUMBER 1 TO t2 #/ 
$u CALI. SCANDATA: 
94 DO WHILE (PANSW (0 
53 T8SCAN. KEVEQARD(REVLIST. 99; 
S54 bdo v0 TO I~ /*® CHECK NEW KEYS #/ 
37 IF MEYLIST(y<12 rae 00; /* CHANGE TIMBRE #/ 
3a TIMBRE #=KEYLIST(J /* NEW TIMBRE #/ 
Pa EN ae DISPLAY (TIMBREW+1, 0.0); 
) 
gn - ELSE START DO. AN. EVENT SET (KEYLIST(U). 0, (,0,0,0) TASK: 
32 . 
63 CALL SUSPEND(5); 
64 CALL SCANDATA: 
65 END: 
c--] a TASK: 
6/ END MAIN 
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/* MAX DEMO 15 
/* comprehensi 


INSERT 
INSERT 
INSERT ‘MAXTAS 
MAIN: PROCEDUR 


WAVE (2) 


RATIOS 
MASK 
8656, 0192. 1 
PITCHSE 
PITCHSE 
INTERVA 
VALUE (3 


UN DATA 
SW DATA 


DO. AN. EVENT 


DCL CHAN 
DCL T 
CHAN=ALL. 
IF CHAN>= 
T=PI 
IF RN 
LS 


FREEC 
fi CHANCE THEN CISPLAYSW(3)=DISPLAYSW(3) &NOT (MASK (CHAN/2) ) 


EN 
TERMINAT 


END DO AN. E 


non = 


T 
Sé? 


po, etoneso 
peeue rou 
PPTGHoe | 

DO 1=0 to EB 


de 
j= 
)= 


CALL SCANDA 


TICK. COUNT= 
DO WHILE (P 


START 


‘MAXSYN 
'MAXIO': 


_ COUNT=0 


-j[- 


11 MARCH 82 #/ 
ve example #/ 


KG 
E; 
FIXED; 
“ae 
DATA ¢ 1 
6384.3 
ee 


3 
fo) 
DATA me 
2 


ili 


hZE Lr 
CLI GteeT EL ECHSeT. SIZE) FIXED: 


84; 


L DATA (0.4.7.9, 12); 


) FIXED: 
Ch,1,1.4)3 
C10", "40", "4000", 


PROCEDURE; 
AUTOMATICIi 
AUTOMATIC2; 


OCATE: 
O_THEN 


D(O. 10)<5 THEN 


SETVOL (CHAN, 2557; 


SETFRG(CHAN, KEY(I 
SETE (CHAN, VALUE (O 
SETI (CHAN, VALUE (2 
SUSPEND (2S0+SHL(R 
ou 
N 


SETE (CHAN, VALUE 
SETI (CHAN, 1000, R 


E TASK: 
VENT 


WAVE (H, 
WAVE (HAR 


0; VALUE(1)=1000: 
es ae i 
ITCHSET. SIZE; 
TA: 

0; 
ANSW(2)<>"02");i 


THEN om 
DO. AN. EVENT TAS! 


Od; 
1); 
2); 


PITCHSET (1 )=24; 


"40000"); 


DO: 
TCHSET(RND(O, PITCHSET. SIZE+1)) 
TST+ INTERVAL (RND(O 
LSE =I-INTERVAL (RND(O 
IF CHAN<32 THEN DISPLAYSWt3) “DI SPLAYSH 
Lo SETWSEL (CHAN, WAVE (RND(O, 3)) 3 


at 


VALUE (2)=1000; VALUE(3)=20; 


END; 


TICK. COUNT= DSVRTEPEDAL, POS/2+RND(O, 35); 


CALL SUSPEND(3);i 
TICK. COUNT=TICK. COUNT~-1; 
CALL SCANDATA: 


END: 


s& 
/* 
fk 


/* 
/* 


le 
/* 
/* 
/*% 


ye 


s* 


/* 


MAIN TASK #/ 


HOLDS WAVEFORM MEM NUMBERS #/ 
WAY */ 


FIFO STACK OF PITCHES TO BE USED +/ 


STACK POINTER #/ 


INTERVALS TO USE #/ 
DATA FOR TIMBRE #/ 
UNITS CODE #*/ 
SWITCH BITS */ 


THIS TASK WILL. PROCESS AN EVENT #/ 


GET US A CHANNEL */ 


BASE PITCH #*/ 
PICK INTERVAL #/ 


MASK (CHAN/2) 1 


PICK A WAVEFORM MEM #/ 
OPEN UP OUR VCILUME #7 


PICK ENV oS #/ 
ant IND PEA 


as 
AIT 25 fo" 1.3 SECONDS #/ 


FINAL DECAY */ 


nee FOR DECAY */ 
VE UP OUR CHANNEL *#/ 


THIS EVENT IS DONE #/ 


HUMANS HAVE TEN FINGERS #/ 


CHAN 

*/ 
TCH STACK #/ 
TDC #/ 


NEXT EVENT TIME #/ 


WAIT A TICK &/ 
COUNT A TICK #/ 


GE IS E ATK #/ 


TICKS UNTIL NEXT NEW EVENT #/ 
OOP UNTIL STOP BUTTON #/ 


tie 


DEMO15 


-2- 


Sere BE tEQSRD LREEEST": 9: /® CHECK KEYS #/ 

DO J#O0 TO I-13 /* UPDATE PITCHSET #/ 
PITCHSET (PITCHSET. LU a ad 
Cr ae TR=P I TCHSET. PTR+ /# UPDATE POINTER #/ 


IF PiTcnser PTROPTTCHSET. Size THEN PITCHSET.PTR=0; /# WRAP AROUND #/ 


END; 
DO 120 TO 3; 
— ‘a PANSW(0)=SW(I> THEN DQ; K=2; DISPLAYSW(O)=SW(I); END: 


VALUE (K) =VALUE(K) +KNOB. CHANGE: 7* ADD IN ADJUST #/ 
TE VALUE(K)<O THEN VALUE(K)=0; /* LIMIT #/ 
IF VALUE (K)>9999 THEN VALUE (K)=9999; 

ao DISPLAY (VALUE (K), 0, UN(K) 9; /* DISPLAY VALUE #/ 
é 


TERMINATE TASKi 


FND MAIN: 


MAXSYN 


VR OSINTUGRON-OVONG Uae 


D5 RID ee eee 


sf= 


7# MAX Byers DZER ROUTINES a gee QELS I LEVEL 2 23 MAR G2 +#/ 
/# PRINCIPAL DEVELOPER: JEFFREY S. RISBERG #7 
7* COPYRIGHT 1982 NEW ENGLAND DIGITAL COREORATION “/ 


DCL LOAD LIT ‘WRITE(S)=’i DCL MUL LIT ‘WRITE(S)= /* DEFINE HARDWARE a/ 

DcL DIV LIT ‘WRITE(7)=’s DCL RES LIT ‘READ(S) ‘i /* MUL/DIV INSTRUCS. #/ 

DCL. STAB( 256) FIXED: /* SINE TABLE FOR CREATING WAVEFORMS */ 

DCL LOGTAB(1000) FIXED; /* LOGARITHMS TABLE FOR FREQ geeeuenT sens &/ 
DCL FTAB( 1024) FIXED; 7# FREGUENCY LOOK-UP TABLE 

DCL MAX. CHAN LIT /637; 7* UP TO 32 VOICE SYSTEM #/ 

OCL CHANNELS. IN. USE (MAX. SS ae Pal ld 

DCL CHANNELS. LIST DATA (32.0 »8,10,12,14, 16. 18. 20, 22, 24. 26, 28, 30, 32, 34, 


44, 46, 48, 50, 33; 94° 56, 88°60. 62)) 
CRETURNED BY VARIOUS ROUTINES) #/ 


FIXED, 


36, 38. 40,42 
/* GLOBAL YALUES FOR MAX 
DCL (NOTEINC, NOTENUM, g) FIXED, 


DCL (INTADD, INTDIV, TMC) 
DCL WAVEBUF (255) FIXED 


/* RETURNED BY CALCFRG */ 
7*# RETURNED BY CALCRATE (INTERPOLATORS) #/ 
7* RETURNED BY CALCWAVE (COMPUTED WAVE SHAPE) 


*/ 


-Z- 


/* 2/ 
/@ WAVESHAPE MEMORY ROUTINES: 


’ + 


S_ THE MOST COMPREMENSIVE ROUTINE, 


SETWA' 
HARMONIC COEFFICIENTS, 


AND canes LIST OF 


OF SAGE 


O MEM WITH Sine WAVE, SET UP 


RLOCATES OH RECUsES' a Ue ALL 

"CALCHAVE’. TO COMPUTE THE GAVEFGRM, AND FALLS “EMITHAVE TS SEALE 
Fay ASO BE CREED DIRECTLY. “FRESUAVE’ TOT EMCYED SO UrRED UR x 
USAGE OF A WAVEMEMORY. 2/7 

DCL NUM_MEMORIES LIT ‘32°: y 

BEL WAVENER. CONTENTS (aster, MEMORIES) FIXED: Ve 

DCL WAVEMEH. USEDBY (NUM. MEMORIES) FIXED: fe 

DCL SINE. MEM FIXED: y 

Det Ent MEM” FIXED: 7 


/@ THE FOLLOWING SUBROUTINES ARE CALLED FROM “CALCWAVE’ TO 
ADD AND SUBTRACT HARMONICS FROM THE GLOBAL ARRAY ‘WAVEBUF’. 


e 


T 
@ WILL POINT 
@ MEM@ FOR 


CHANNEL 1. 


THE CGEFF IC! ee D ;SUBCOEE’ BOTH TAKE THO Ag pha NeS HARMONIC gre) 
= | 2 ’ 
RELATIVE AMPLITUDE. (RANGE On 1080, “Mich 130 TH 150. 6 
TNE REACCTINE avSTEn. e7 
ADDCOEF: PROC (NUM, COEF) /* PASS HARMONIC NUMBER AND VALUE (0-1000) ©/ 
BCL (1, J. K. NUM. COEF) FIXED: 
IF COEF =O THEN RETURN /* NOTHING TO ADD IN #/ 
r 
pO I=0 Ta 255; 7® CYCLE THROUGH #7 
LOAD COEF, mx STACY); KeRES: DIV 2000: % 
HAVEBUF Ti) muAVEBUF (1) +RES: 
‘cen Jad SONU) & 255; 
FND ADDCOEF: 
SUBCQEF PROC (NUM. COEF), /® PASS HARMONIC NUMBER AND VALUE (0-1000) #/ 
(1. Jes NUM, COEF) uf TxEDs 
Te coeF=0 Feo THEN RETUR /@ NOTHING TO SUBTRACT OUT e/ 
00 ako CORE: MUL STAB(U); KeRES: DIV 2000 
i SY 4 = 3 i 
WAVEBUF (1) ©WAVEBUF (1)-RES; 
Je (JeNUMI R255; . . 
END: 
END SUBCOEF:; 
/@ THE ROUTINE ‘CALCWAVE’ IS_USED TO CALCULATE AN ENTIRE WAVE SHAPE 
IT 189 PASSED A FIXED POINT ARRAY CONTAINING A LIST OF 
HARMONIC COEFFICIENTS (LOCATION ZERO OF THE ARRAY CONTAINS THE 
NUMBER OF COEFFS IN THE ARRAY) 
THE TIMESDOMAIN TABULAR FUNCTION OF THE ARRAY IS COMPUTED AND 
STORED IN THE GLOBAL ARRAY “WAVEBUF ’ 
CALCWAVE: PROCEDURE (COEFLIST); 4@ PASS ARRAY CONTAINING COEFFICIENTS ©/ 
BCL COEFLIST ARRAY: 7@ PASS DATA «/ =e 
06 I=o TO 253; WAVEBUF(T)=0; END: /@ ZERQ OUT WAVEBUF +/ 
DO Imi. TO. coeFLiSTto) 7@ LOOP OVER PARAMETER LIST #/ 
enpCAtt ADDCOEF (1. COEFLIST(I)): 7# ADD IT IN #/ 


END CALCWAVE, 


saa BOTS ‘EMITWAVE’ IS CAL 
LOAD A SYNTHESIZER WAVE EMORY WITH THE WAVEF 


THE PROCEDURE ‘'EMITWAVE’ IS PASSED TWO ARGUMENTS: 
THE FuRst 1§ THE WAVE MEMORY NUMBER (Q-31). 

A 2546 LOGATION So=593) FIXED point ARRAY. IT IS 
GLOBAL ARRAY 8 ALT MAY BE ANY OTHER 
POINT ARRAY DECLARED IN THE User PROGRAM. 2/ 


ent Twave. eRocepuRE (MEP®, WAVEBUF ); 
DCL WAVEBUF ARRAY; 


LED TO SCALE A a venone DATA ARRAY. 


/@ 
/@ 


AND 


AND THE SECOND_IS 
NORMALLY THE 
FIXED 


CAN PASS ANY FIXED POINT ARRAY #/ 
TS USUALLY GLOBAL ARRAY ‘WAVEBUF’ #/ 


IN INIT c/ 
FOR RESTORE IN EMITWAVE #/ 


MAXSYN ie. 
DCL (1.J,4K) FIXED: /* AND TEMPS #/ 

DEL (MIN, MAX) FIXED: 

/* SCALE THE WAVESHAPE - BRING IT WITHIN BOUNDS 0 TO 255 #/ 

MINSWAVEBUF (0); MAX=WAVEBUF (0); 7* FIND MIN AND MAX «#/ 


IF WAVEBUF(I) ¢ MIN THEN MIN=WAVEBUF (I) 
IF WAVEBUF(T) > MAX THEN MAX=WAVEBUF( I) 


i RESTORE MEN# FOR CHANNEL PAIR O/1 */ 
ITE("160")=1; WRITEC"161")2"04"; BRITE ( "162" )=CH1, MEM: 
END EMI TWAVE. 


/* SETWAVE ROUTINE 


00 
O1 
02 
03 
OA 
[ohs} 
06 
O7 
08 
Oy END; 
10 DO I=0 ues goat WAVEBUF (1) =WAVEBUF(I)-MIN, END: /* SUBTRACT MIN */ 
1) MAX=MAX— /* FIND NEW MAX #/ 
12 IF MAX= on THEN MAX=1; 7#* AVOID DIVISION ERROR */ 
13 1=MAX/512; 7* TRY TO ROUND IN FOLLOWING ROUTINE #/ 
14 DO Jv=0 TO 255; 
15 LOAD WAVEBUF(J)+Ii MUL 235; K=RES: DIV MAX; 
16 WAVEBUF (J) =RES; /* COMPUTE SCALED ANSWER */ 
re END: . 
ak 7* NOW WE ARE READY TO EMIT IT TO THE SYNTHESIZER #/ 
21 DO J=0 .TO MAX. CHAN BY 14, /* FOR EACH SYNTH #/ 
ec IF CHANNELS. IN. USE(J)>=O THEN DO; /* CHECK IF _IT EXISTS #/ 
23 WRITE("160")=J+1; WRITEC"161")="06"; WRITE("162")=0; /#*#_FIRST ZERO OUT MAR *#/ 
24 WRITE("161")="04"; 7% ‘TIM’ FUNCTION #/ 
2s WRITE ( "162" )=MEM#+32; /# SELECT MEMORY TO LOAD #7 
26 WRITEC"LSO1")="O7 "5 /* ‘MEM’ FUNCTION #/ 
ae ENBE” I7O0 TO 255; WRITVE("162")=WAVEBUF(I);) END; /* LOAD MEMORY #/ 
Ma END; 7%* SYNTHS */ 
i! 
° 


WIWUWA 
Ss 


ee ee te ee ee ee ee cet me tee Nae ee ee Pe an ke ee a ta a ee Be ee ee Bee gee bee pe fw pe pe Be pee Bt bh ot fn fn 


39 FOR USER ’S CONVENIENCE, SETWAVE ALLOCATES A WAVE MEMORY OR 

36 REUSES ONE IF _ IT ALREADY CONTAINS THE SAME WAVEFORM: THEN 

37 CALCULATES THE ha ti AND LOADS IT_INTO THE MEMORY. Pil 

3B MEMORY NUMBER (0-32) CHOSEN, OR ~1 IF NONE ARE FREE. 

40 SFETWAVE: Be ail 

41 DCL COEFLIST ARRAY 7* SASS DATA *#/ 

4? NCL (1,.0,K) FIXED: 

43 OCL (STARTING. POINT) FIXED: /* USED IN ROTARY SEARCH FOR FREE MEMORY */ 
44 DCL. MEM# FIXED: /* WAVE MEMORY NUMGER SELECTED #/ 
45 K=COEFLIST(O); 7* GET NUMBER OF COFFS #/ 

44 IF K>24_ THEN K=24; ¢* ONLY THE FIRST 24 HARMONIC COEFS ARE COMPARED 
47 DU T=0 TO NUM, MEMORIES-1; 7* SEARCH ALL MEMORIES #/ 

4a bO J=1 TO Ki 7* COMPARE GIVEN COEFFS #/ 

49 IF COEFLIST(J)<>WAVEMEM. CONTENTS(1#24+J-1) THEN 

3° = noe CANNOT USE, THIS, MEMORY: 7* CANNOT USE IF DIFFERENT #/ 

pen N 

$2 DO J=K+!i TO 24 7* COMPARE FOLLOWING COEFFS #/ 
we IF WAVEMEM, CONTENTS 1#244)-1<> -O THEN /* SHOULD BE ZERO #/ 

3 END coro CANNOT. USE. THIS. MEMORY 

eo ‘ 

56 WAVEMEM angel USEDBY(1) +1; 7* MARK NEW USE #*/ 

Sy RETUR ‘ 7* SAME ONE FOUND. REUSE +#/ 

38 CANNOT. Use. THIS. MEMORY: 

SY END; 

60 1:0; /* LOOK FOR FREE MEMORY #7 

61 DO WHILE CICNUM, MEMORIES) & (WAVEMEM. ee See POINT) <0); 

62 lssI+1, STARTING. POINT=STARTING. POINT+ 

63 Pe STARTING POINT=NUM. MEMORIES THEN STARTING. POINT=0; /#* WRAP AROUND */ 

b4 ND; 

65 TE imas ce THEN 00; 7* NONE AVA Bae / 

64 oo <i /* SIGNAL ERROR #/ 

&/ 

68 mete STARTING POINT 7* USE THIS ONE */ 

$9 WAVEMEM USL DBY (MEM#) =1; 7* MARK _ITS USE #/ 

79 STARTING. POINT=STARTING. POINT+4#1: 7* START WITH NEXT MEMORY NEXT TIME */ 
al IF STARTING POINT=NUM MEMORIES THEN STARTING POINT=0; 7# WRAP AROUND #/ 

PA 

a3 CALL EMT IWAVE (HEM, WAVEBUF ), ay SeALe One CW at ee */ 

74 CALL EMITWAV WAV! i * 

we) bO t=1 7* SAVE THE HARMONIC CONTENTS */ 
76 WAVEMEM, CONTENTS(MEM® 24+1-1)=COEFLIST(I); 


MAXSYN sip 


177 END; 

178 DO [=K+1]1 TO 24; WAVEMEM. CONTENTS (MEM##24+I-1)=50; END: /* ADD FINAL ZEROES #/ 

179 RETURN MEM#; **® RETURN THE WAVE MEMORY NUMBER USED 
139 END SETWAVE; 

rae 7* ROUTINE ‘FREEWAVE’ FREES UP A USAGE OF A GIVEN WAVEFORM MEMORY #/ 

184 FREEWAVE: PROCEDURE (MEM®@), /* PASS MEMORY NUMBER #/ 

183 DCL MEM@® FIXED; 

186 WAVEMEM. USEDBY (MEM#) =WAVEMEM. USEDBY (MEM®)—-1) /# FREE ONE USAGE #/ 

197 EMEM. USEDBY(MEM#)<O THEN WAVEMEM. USEDBY (MEM#) =O: /# AVOID EXTRA FREES #/ 


IF WAV 
END FREEWAVE; 


nm 
pH] 
D 


1B 
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vay /* e/ 
191 
17 7* [NTERPOLATOR ROUTINES: 
194 THE ROUTINE ‘CALCRATE‘’ IS USED TO CALCULATE THE NECESSARY NUMBERS 
195 THAT ARE USED TO CONTROL THE INTERPOLATOR RATES IN THE DIGITAL 
196 SYNTHESIZER. IT_IS PASSED ONE ARGUMENT REPRESENTING THE NUMBER 
197 OF MILLISECONDS (0-5000) THAT A FULL SCALE (0-255 OR 255-0) 
ee PARAMETER CHANGE SHOULD TAKE. 
200 TWO NUMBERS ARE RETURNED IN_THE GLOBAL VARIAGLES ‘INTADD’ AND ‘INTDIV’ 
201 THESE NUMBERS WILL REPRESENT THE INTERPOLATOR ADDER AND DIVISOR 
202 . ? RESPECTIVELY. THEY ARE WRITTEN OUT TO THE SYNTHESIZER BY 
aaa . THE 'EMITERATE’ AND ‘EMITIRATE’ ROUTINES. */ 
205 CALCRATE: PROC(MS); /* CALCULATE INTERPOLATOR NUMBERS +*/ 
206 DCL_MS FIXED: /* THE TIME IN MILLISECONDS +/ 
207 INTDIV=MS-SHR(MS, 2); 
208 IF_INTDIV=0 THEN INTDIV=1; 
209 INTADD=256; 
210 DO WHILE INTDIV IGT 256; /* LIMIT TO 256 #*/ 
aig ee. eens INTADD=SHR(INTADD, 1); 
213 Soe SURE boo INTADD=INTADD-1; 7% CORRECT FOR SYNTH ALGORITHM #/ 
21i4 IF MSO THEN MS=30000; 7% USE 30 SECOND TIME CONSTANT IF LONGER DECAY #/ 
215 LOAD MS; DIV 25; MS=RES; /® COMPUTE MS/25_ #/ 
214 IF MS<6 THEN MNS=6; 7* MIN _OF 6 PERIODS */ 
217 LOAD S000; DIV MS, TMC=!10000-RES. /* COMPUTE 10000-S5000/MS #/ 
218 LOAD 0; WRITE(4)=TMC; DIV 10000; TMC=RES; 7* TMC FDIV 10000 FDS ONLY #/ 
aan END CALCRATE: 
22t EMITIRATE: PROC (CHAN, IADD,. IDIV); /* PASS CHANNEL, ADDER. DIVISOR #/ 
2e2e DCL (CHAN, IADD, IDIV) FIXED; 
229 WRITE ("2160") =CHAN: 4* SEL CHAN #*/ 
aaa WRITEC"161")="11°) WRITE( "162" )=SI1ADD; /*® ADDER #*/ 
225 WRITE C161" )2"10";/ WRITE ("162") =IDIVi /* DIVISOR #*/ 
sat END EMITIRATE: 
22G EMITERATE. PROC( CHAN, [ADD, IDIV); /7* PASS CHANNEL, ADDER, DIVISOR «/ 
229 DCL_(CHAN, FADD, IDIV) FIXED; 
230 WRITE(“160") =CHAN+1; 4% SEL CHAN #/ 
231 WRITE("261")="11"; WRITE("162") SI ADD; 7* ADDER */ 
232 WRITE("161")="10"; WRITEC"162")=IDIVi /* DIVISOR #/ 
oo END EMITERATE, 
2:34 
23% EMITILIM: PROC (CHAN, LIMIT); /* PASS CHANNEL. INDEX LIMIT (0-255) #/ 
236 DCI. (CHAN, LIMIT) FIXED: 
237 IF LIMIT=255 THEN LIMIT=254 
238 WRITE( "160" ) =CHAN; 
239 WRITE("1L61")5S"123"; WRITE (“162")=LIMIT: 
Epa GND EMITILIM: 
24) 
242 EMI TELIM, PROC (CHAN, LIMIT): /# PASS CHANNEL. ENV LIMIT (O0-25%) #/ 
243 DCI (CHAN, LIMIT) FIXED: 
24qa IF LIMIT=255 THEN LIMIT=254 
245 he EL ea q 
246 RITE("161")2"12"; WRITE(“1562")=SLIMIT, 
ae tend MET TEL ten 
249 DCL SETILIM LITERALLY ‘’EMITILIM’, 
con DCL SETELIM LITERALLY ‘EMITELIM’: 
So 
252 Bey ere PROC(CHAN. MILLIS); 7* PASS CHANNEL, INDEX ATTACK TIME IN MS #/ 
go3 ey a ae a FIXED: 
294 Cn L LCRATE(MILLIS);: 7* COMPUTE _INTERPOLATOR INFORMATION */ 
255 CALL ENT TIRATE CHAN, INTADD, INTDIV): /* AND WRITE OUT ADDER. DIVIDER #/ 
aay FND SETIRATE: 
25) 
238 SETERATE. PROC (CHAN, MILLIS): /* PASS CHANNEL. ENV ATTACK TIME IN MS #/ 
ao7 DCi. (CHAN, MILLIS) FIXED: 
260 CALL CALCRATE(MILLIS); ¢* CALCULATE INTERPOLATOR ESRA TON */ 
ool CALL EMT TERATE (CHAN, INTADD. INTDIV); 7* AND EMIT DATA TO SYNTH #/ 
Be END SETERATE; 
2 
264 SETE: PROC (CHAN, MILLIS, LIMIT): /* SET ENV RATE AND LIMIT */ 
269 DCL (CHAN, MILLIS. LIMIT) FIXED: 
266 CALL SETERATE(CHAN, MILLIS); 


MAXSYN 


-b6- 


CALL SETELIM( CHAN, LIMIT); 
END SETE; 


SETI: PROC (CHAN, MILLIS, LIMIT): 
OCL (CHAN, MILLIS, LIMIT) FIXED: 
CALL SETIRATE (CHAN. MILLIS); 
CALL SETILIM(CHAN, LIMIT): 


END SETI; 


/* SET INDEX RATE AND LIMIT #/ 
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LOGI GIGI IPS OI AINI RIES RD) te et ee 
OR)- ODDO YU SUTI-OVONEUSOCRIR 


ie 


/* */ 
#* FREQUENCY CALCULATION ROUTINES 


LOG1000 PROCEDURE IS USED TO COMPUTE THE LOG OF A NUMBER 
REPRESENTS 1. 000. FINDS LOG (BASE 2) TIMES 1024. #/ 


LOG1IOO0O: PROC(VAL): 
DCL (VAL,1I) FIXED 
IF VAL=0 THEN RETURN -16384; 
iota] WHILE VAL.<1000; I=1-1024; 


VAL=SHL(VAL, 1); END: 


Be WHILE VAL>1999; T=1+1024; VAL=SHR(VAL, 1)i END: 
RETURN PreeOS LABS 1000), 
FND LOGIOO 
|.0G4400; PROCI(VAL); 
DCL VAL FIXED: 
IF VALCO THEN VAL=-VAL; 
LOAD VALi MUL 1000; VAL=RES; DIV 4400; VAL=RES:; 


RETURN LOGIOOO(VAL); 
END LOG4400; 


WHERE 1000 


7/* VAL IS 1000 = 1.000 */ 

/* RATIO OF ZERO #/ ‘ 
/* ADJUST VALUE #*/ 

7* LOOK UP FRACTIONAL PART FROM TABLE #/ 


7* SAME AS LOG1000 ONLY 4400=1.000 #/ 


/* ABSOLUTE VALUE #/ 
/* SCALE BY 1000/1024 #/ 


DCL WESTERN SCALE DATA (0.85, 171.256. 341, 427. $12, 597, 683, 7468, 853. 939 

DcL BITS DATA (1.2, 4,8, 16, 32, 64, 128, 236, 512, 1024, 2048, 4096, 3192, 16384, 32748) 

DCL PREVIOUS. OCTAVE el /* STORAGE FOR OCTAVE FOLLOWING IN ‘PITCH’ #/ 

DCL OCTAVE. RATIO FIXED: /*® OCTAVE RATIO VALUE FOR FRG ROUTINES (X 1000) #/ 
DCL FREQ. BASE FIXED: 7*  0G4400 OF TUNING. BASE #/ 

SET. TUNING. Beep PROC(VAL): pa en aY AND ‘KEY’ #/ 


DCL VAL FI 
FREQ. BASE =L064400( VAL): 
END SET. TUNING. BASE; 


f* “KEY' TAKES A CLAVIER KEY NUMBER (0-60) 
FREQUENCY NUMBER IN THE INTERNAL FORM #/ 


KEY- Mee Abe! 
DCL MBER, OCT Ave, PITCH. 
QE TAVESNUMDER7 1D, 
PTTCH=NUMBER-OCTAVE*#12: 
FNUM=SHL (OCTAVE, 10)+WEST any SCALE (PITCH) +FREG. BASE-2816; 
FNUM=FNUM#OCTAVE. RATIO/100 
RETURN FNUM+2814, 

END KEY: 


‘* oe IS A CONVEN LENT goers 
AS USED _ IN SCRIPT (EG. ‘EF3°). AND PRODUCE 
NUMBER IN THE INTERNAL FORM “pT TCH! ALSO REMEMBERS Li 
THE PREVIOUS CALL, FOR OCTAVE FOLLOWING AS IN SCRIPT. #/ 


AND PRODUCES THE 


FNUM) FIXED: 


PITCH: PROCEDURE(NOTE);: 
DCL NOTE ARRAY: 
DCL SCAL. ARRAY DATA (°C D EF GA BB’); 
DCL DIGITS ARRAY DATA (° 123457); 
DCL CHAR ; 
DCL KEY# FIXED; 
DCL (1.J+K) FIXED: 


CHAR=BYTE(NOTE, OO&"177"5 
IF (CHARD="2£41")&(CHARCS"173") 
KEY H=—15 
pO 1=0 TO 1}; 
rd CHAR=(“177"&BYTE(SCALE. 1)) THEN KEY#=1; 
IF KEY#<O THEN RETURN SHL(7,10)i 
ELSE DO v=! TO NOTE(O)-1; 
CHAR=BYTE(NOTE, JI&"177"; 
IF CHAR="043" THEN KEY#=KEY YR+ 
5 ae Eo oo ho THEN KEY#=KEY8-1; 


THEN CHAR=CHAR="40"; 


END: 


END, 
RETURN KEY (KEY #+12% (PREVIOUS. OCTAVE-1 005 
END PITCH 


TO 5; /2 
IF CHAR=("177"&BYTE(DIGITS.K)) THEN PREVIOUS. OCTAVE=K: 


/* SET ROBINS BASE FOR CALLS TO 
/# 4400 = io] A-440 TUNING #/ 
/* GET THE +186 “/ 


CORRESPONDING 


/* PASSED KEY NUMBER (0-40) #/ 


7* FIND THE OCTAVE #/ 
7* FIND THE PITCH #/ 


7* OCT RAT ADJ #/ 


ma , TAKE A ener IN CHARACTER FOR 


A FREQUENCY 
OCTAVE OF 


/* NOTE IS A gine SUCH AS 
/* THE INPUT #/ 


"CHO! #/ 


7* CHARACTER FROM NOTE STRING *#/ 
/* CLAVIER KEY NUMBER */ 


/* GET PITCH qe LETTER +*/ 
/# UP THE CASE 


/* FIND MATCH IN SCALE #/ 


/* HIGH-PITCH SCREAM AS ERR MESSAGE *#/ 
7* LOOP QVER ee CHARS #/ 
/* GET NEXT LETTER +#/ 
/* CHECK FOR SHARP #/ 
/*® FLAT #/ 
CHECK FOR sey e #/ 
/* SAVE IT 


f 


roy 
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/* ‘HERTZ’ TAKES A FREQUENCY AS AN INTEGER REPRESENTING HERTZ TIMES 10, 
3 (THUS 4400 MEANS A-440), AND alata THE CORRESPONDING FREQUENCY 


NUMBER IN THE INTERNAL FORM. 


MEAT he ‘vaueecee 
RETURN LOG4400 (NUMBER ) +2816; 
END HERTZ: 


/# FREQUENCY TIMES 10 #/ 
/@ TAKE LOG PLUS A-440 OFFSET */ 


7* 'PCH'’ TAKES A_ OCTAVE. PITCHCLASS NUMBER, AS IN MUSIC-11 OR MUS ICSE? 
AND PRODUCES THE INTERNAL FREQUENCY NUMBER. Nove THAT THIS THE 


ONLY ROUTINE WHICH TAKES A FLOATING ARGUMENT. 
PCH: caf COR EUEE SeMSER >) 


FLOATING: 
DCL Oy OFFSET) FIXED: 
DCL FRAC FLOATING: 
Qc TeINT NUMBER): 
FRAC SNUMBER— 


oc 
OFESETSINT 1084, *FRAC#100. /12. +0. 5); 
RETURN SHL(OCT—4, 10)+0FFSETi 
END PCHi 


/* jEaESrAS Tees? ews NUMBER (A&G PRODUCED By ‘PITCH’, 
), AND FINDS Vi INCREMENT. NOTE NUMBER, 
ADDER FOR THE SYNTHESIZER. #/ 


camer PROCEDURE (FREQ. NUM); 
ce Mad . NUM, I, eae FIXED; 


Te & THEN DO; 
iar NOTENUM®#199; NOTEADD=0: 


ELSE DO: 
I=FREQ. Ne nee 
NOTENUM=F TAB ( I) 
NOTE INC=SHR (NOTENUM, @); 
NOTENUM@NOTENUM&255 


IF FREQ. Riet> w 088 Mg 25 DO: 
NOTEADD=SHR (FREG. NUM, 10)—1;3 
IF NOTEADD>7 THEN NNOTEADD=7; 


ELSE DO, 4 
Tash (102441023) -FREG. NUM 
DO WHILE 


Ialt-1; ‘NOTE INGHSHR (ROTELNC 


END; 
DO WHILE (1<350)&(NOTENUMC128); 
IsI-1; NOTENUM=@SHL (NOTENUM. 1); 


END; 

IF 1<>0 THEN DO: 
JaNOT(BITS(I)=1)3 
NOTENUM®=NOTENUM® (NOTEINC&J) /NOTE 

eypbO WHILE 1<30; NOTEINC=SHA (NOTET 

enpEND! ‘ 

NOTEINC=NOTEING-1; 

NOTENUM] 2 5G¢NOTENUM*SHR (NOTEINC, 3); 

END CALCFRG; 


wiles tia PROC (CHAN, NUM. INC, I pag UB 


DCL HAN, INC. NUM, IADD) FIX 
DI SASL 
WRITEC’ 1607 =Car: 
WRITE (°161")3"02"; WRITE ( “1462” )=IADDi 
WRITE ("161") "01°; WRITE (“162”) @NUM; 
WRITE ("161") "00"; WRITE (“162" = INC; 
witha 


EMITEFRG: PROC (CHAN, NUM, INC, IADD); 
Be Abe So la NUM, IADD) FIXED; 
RESET 160") =CHAN+1; 


/* ie pl | OCT. PCLASS, EO.. 8.00 = MIDDLE C +*/ 
/% s & ABOVE MID C #/ 


/* EXTRACT THE OCTAVE #*/ 
7# EXTRACT THE FRACTION #/ 


‘HERTZ’ 


AND OCTAVE 


/* GIVEN INTERNAL FORM FREQUENCY NUMBER #/ 


7 EXTRACT FRACTIONAL OCTAVE PART #/ 
LOOKUP FREQUENCY #/ 


Vi 
/* EXTRACT INCREMENT #/ 
/* AND EXTRACT DIVISOR #/ 


7* WE CAN COMPUTE NOTEADDER #/ 

/* LIMIT IT #7 

7# CORRECT INC /DIVISOR PAIRS FOR SUPER LOW FRE(/- 
/7* YSE LO a 


/ 
7* COMPUTE NUMBER OF OCTAVE TO BRING DOWN +#/ 
/# EVEN INCREMENTS #/ 


7* MORE Le rd 
7% COMPUTE MASK FOR BITS TO SAVE #/ 
# CORRECT DIVISOR FOR LOST BITS #/ 


/# ADJUST FOR SYNTH ALGORITHM #/ 


/@ PASS CHANNEL, NOTENUM, INC, ADDER #/ 


7* DON’T LET THIS GET “bis alti a/ 
/* SELECT iNea* CHANNEL #/ 
*/ 


/@ DONE NOW #/ 
7% PASS CHANNEL. NOTENUM. INC, ADDER #/ 


/*# SELECT ENV CHANNEL #/ 
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"162" )sITADD; /* 
"162° )=NUM: /* 
"162" = INC; 
SETFERG: PROC( CHAN, FREQ. NUM, RATIO); /* 
DCL (CHAN, FREG. NUM, RATIO) FIXED: 
CALL CALCFRG(FREG. NUM); /* 


CALL EMI TEFRG(CHAN, NOTENUM, NOTEINC, NOTEADD) i 
IF RATIOC>1000 THEN CALL CALCFRG(FREG. NUM+LOG1O00(RATIO) Di 
Fi SS te ae OE eee Mee mOE a 


SETFRG2: PROC (CHAN. E. FREG. NUM, I. FREQ. NUM); /* 
DCL (CHAN, I, FREG. NUM. E. FREG. NUM) FIXED: 
CALL CALCFRGQ(1. FREQ, NUM); /* 
CALL EMITIFRG( CHAN, NOTENUM. NOTEINC, NOTEADD); 
IF 1, FREG, NUMCYE FREG. NUM THEN CALL CALCFRG(E. FREQ. NUM); /# 
CALL _EMITEFRG(CHAN, NOTENUM, NOTEINC. NOTEADD); 

END SETFRG2; 


ADDER #/ 
NUMBER */ 


PASS CHANNEL, FREG, RATIO */ 
COMPUTE NUMBERS FOR FREGUENCY */ 


PASS CHANNEL, TWO FREGS #/ 
COMPUTE NUMBERS FOR INDEX FREQ #/ 
ENV FREG #/ 


MAXSYN 
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/* a/ 


/# EMIT AND SET ROUTINES FOR VOLUME. WAVEFORM SELECT. 


AND SHIFT COUNT #/ 


PASS CHANNEL. VOLUME 0-255 #/ 


VGL’° FUNCTION oy, 


WAVE MEM @ «/ 
SAVE CHAN PAIR 0/1 MEM® #/ 
Ei CHANNEL #. ror 

FUNCTION CODE ‘TI 

INDICATE WAVE MEMORY *KUMBER */ 


INDEX SHIFT COUNT #/ 


CLEAN UP A CHANNEL PAIR 
HE CHANNEL PAIR TO BE CLEAN 
EN CHANNEL 7 


WRITE LARGE INC TO ZERO THETA #/ 
HIT poe CHANNEL #/ 
Fee M AE ALSO WRITES 


ERO OUT VOLUME — STE 
CINK TO SINE ROM 


ONUsO; NNUH255 «/ 
ER #/ 


pest ag re Gann eed /* 
(CHAN, VOL) > 
WRTTEC 1 160° FaeHaN 4* SELECT CHANNEL # 
WRITE (“161=3="19" WR ITEC 162") =VOLi /* 
END EMITYV 
EMITWSEL: PROC (CHAM: ERD /* PASS CHANNEL, 
DCL (CHAN, ME pool FIX ‘ 
IF CHAN). 7 EN et REMOMEM; /@ 
WRITEC “16 rOECH JAN+1; /* Sev CT 
WRITE ("161% )="04"; 4% 
WRITE (“162”) =MEM@+32) /* 
END EMI TWSEL; 
Erik yee Beer par Lae): /*@ PASS CHANNEL, 
DCL _ (CHAN. ISHC) FIXED; 
fs HU a =CHAN; 
C’2162")2"29"5 WRITEC "162" ) = ISHC; 
END MENT TISHE, 
DCL oer LITERALLY ‘EMITVOL’; 
DCL SETWSEL LITERALLY ‘EMITWSEL’: 
DCL SETISHC LITERALLY ‘EMITISHC ’: 
/* CHANNEL CLEANUP ROUTINE #/ 
CLEANUP: PROCEDURE (CHAN); /* 
DCL _CHAN FIXED: " a 
WRITE(“160" ) @CHAN: tes T HIT EV 
WRITE( "161" ) 2°10"; WRITE ( "162" peg o oT TES" 161") sr11%; WRITE" Tao") 2255; 
WRITE( *161") 8°12"; WRITE ("162") 
URITE( "ial" re"Oo"s URITEL “fea” 20, 
WRITE("161°) 2°01"; WRITE( "262" ) 2253; 
WRITE ("161% )m"00"; WRITE(°162") 2255; 4* 
WRITE ("140") @CHAN+1; NOW 
WRITE(°162" )2"%10"; WRITE ( "162" 2255) WRITE( "161" )0"11"; warTer“tee")a295 
WRITE("161") 2°12"; WRITE ("162") 20; 
WRITE("161"°)="900"; WRITE( "162" 8235; /* 
WRITE ("161% )="19"%) WRITE( "162" ) *0; /* 
CALL EMI TWSEL (CHAN. SINE. MEM); /* 
END CLEANUP; 


in, OIvEN BY EVEN CHG © 


+ 


MAXSYN == 


cc = 
are /* UTILITY ROUTINES FOR TIMING, RANDOM NUMBERS, CHANNEL ALLOCATION #*/ 
oon DCL MAXSYN. CLOCK. DIVISOR FIXED: /* MILLISECONDS PER TICK #/ 
rate 7* BASIC WAIT ROUTINE #/ 
307 WALT: PROC (NUM): 7* PASS NUMBER OF MILLISECONDS TO WAIT (.001 SEC) #, 
$OoB DCL (NUM, 1) FIXED 
$09 NUM=NUM/MAXSYN. CLOCK. DIVISOR: /* faNp NUMBER OF TICKS TO WAIT *#/ 
S10 DO I=t TO NUM: WRITE(3)=0; END: 7* WAIT #/ 
rip END WAIT: 
aie /7* RANDOM NUMBER GENERATOR ROUTINE #/ 
be) RND: ROC (NIN. MAXI: 
sto DCL (MIN. MAX) FIXED; 
S17 DCL SEED FIXED; 
518 IF SEED=O0 THEN SEED="157632“; 
S19 SEED=ROT( SEED, 3)+(ROT(SEED. 5) 408 ROT(SEED, 9) ); 
$20 RETURN MIN+(SEED MOD (MAX-MIN) 
pe END: 
HS | /* CHANNEL ALLOCATION ROUTINES: */ 
$25 ALLOCATEX: PROC(CHAN. SET): /* ALLOCATE A CHANNEL FROM LIST #/ 
$26 DCL CHAN. SET ARRAY: /* LIST OF CHANNELS */ 
S27 DCL (CHAN, 1) FIXED; 
328 DO I=1 TO CHAN. SET(O); 7* LOOP OVER LIST #/ 
52? CHAN=CHAN. SET( TI); 
$30 IF CHANNELS. IN. USE(CHAN)}=0 THEN DO; /* TEST #/ 
S31 CHANNELS. IN, USE (CHAN) 21; 7# MARK IT AS » USE #/ 
532 RETURN CHAN; /*® RETURN IT #/ 
aos END: 
$34 Bee 
$35 RETURN -1; /* NO CHANNELS ARE AVAILABLE #/ 
225 END ALLOCATEX: 
fs 
538 dale ati PRO 7* ALLOCATE ANY FREE CHANNEL #/ 
539 RETURN ALLOCATE X (CHANNELS. LIST): /* USE COMPLETE CHANNELS LIST #/ 
aa END ALLOCATE; 
542 Mia + vag Re OCS CER EGC RANIE /* FREE THIS CHANNEL #/ 
$43 CHAN FIXED: 7# THE CHANNEL NUMBER #/ 
544 CHANNELS. IN. USE (CHAN?) =O; 
oa END FREECHAN; 
547 ZERORNN PROCEDURE: 7# ZERO OUT AND FREE UP ALL CHANNELS *«/ 
548 CHAN FIXED: 7* CHANNEL NUMBER */ 
S49 BG CHAN=0 TO MAX. CHAN BY 2; 
$50 TF CHANNELS. IN. Pegs ella ll { THEN DO; /# TEST EXISTANCE #/ 
S31 CALL CLEANUP (CHAN 
S52 CALL EREECHAN (CHAN) : /* FREE IT #/ 
$53 END; 
554 END: 
535 END ZEROSYN, 
554 


ey 
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/* / 


ie ve 5 PROC(CAT. BUF, FILENAME): 
Dc T. BUF, FILENAME) ARRAY: 


bee CEN 4) IXED; 
DCL ¢(I,J,K.PO0S) FIXED: 
DO I= Qg4 NtI}sQ; END; 


CALL PBYTE(CEN, I. J); 
END: 
DO I=1 32: 
neil 3a 


0.3; If Car. BUF (ROS 2 2 <2CFN( +8 ? THEN K=0; 


DO Y=0 
IF (K) THEN RETURN CAT. BUF (POS+4) 
i 


RETURN -1; 
END OCATE. FILE; 


/@ INITIALIZATION ROUTINE #/ 
NCI. UCAT LIT ’310000°; 
a a ee PROCEDURE; 


Le 
DCL SINE, CONTENTS DATA (1, 1000); 
DCL TABLE. SECTOR FIXED; 


CALL _DISKREAD(UCAT. WAVEBUF, 233): 
TABLE. SEC TOR=LOCATE. FILECUAVEBUP  * 
IF TAQLE. SECTORCUCAT THEN 

IF Names oe 


EBU F, 255 
a2 SECTORSUOCATE. FILE (UAVEBUF, ° 


TABLES’ )+uCcaT 


TABLES‘ 


/* SEARCH FOR FILE #/ 


/* COPY FILENAME AND PAD WITH NULLS #/ 
/* PUT INTO CORRECTED FILE NAME #/ 


/@ CHECK EACH FILE #/ 
/@ GET FLAG se BLOCK PTR #/ 


/* SET 
sien." /* CHE me 
‘* RETURN STARTING SECTOR [F FOUND t/ 


/* NOT FOUND #/ 


/@ SET UP MAX #/ 


4* DATA_FOR SINE WAVE #/ 
/# STARTING SECTOR FOR DATA TASLES FILE #/ 


/* READ USER CATALOG. USE WAVEBUF AS BUFFER ; 


£. SECTORSLOCATE. FILE(WAVEBUF, ° STAB~4’)*UCAT; 


/* READ SYSTEM CATALOG #/ 


IF TABLE. SECTOR<O THEN TABLE. SECTOR#@=LOCATE. PILECWAVEBUF, ’. STAB=4'); 


END; 
IF ioe ath ey THEN DQ: 


°?’* TABLES’’ file is not present on your disk. 
PRINT ‘save 7 copy om this user disk and run again. 
noe EXIT(- 
CALL DISKREAD( TABLE. SECTOR, FTA) ate 


CALL DISKREAD (TABLE. SECTOR+8, STA 
CALL DISKREAD( TABLE. SECTOR+9, LOGTAB, 1000); 


DO I#0 TO Max. ag 
WRITE("160")31; 
IF READ("“160") THEN CHANNELS. IN, USE(1)=0; 


ELSE CHANNELS. IN. USE(I)}=-1; 
DO I=0 TO Mm. MEMORIES-1; 
WAVEMEM. USEDBY( 1) #0, 
enn? J=0 TO 23; WAVEMEM. CONTENTS (24#I+J)20; END; 
SINE. MEM=SETWAVE (SINE. CONTENTS); 
/#TF SHR(CORE(CORE(1)+ 
/#ELSE MAXSYN. CLOCK. DIVISGR=10: * 
PREVIQUS. Nats eed 
gre VE. RATIO= 
LL SET. TUNING. BASE (4400); 
CALL ZEROSYN 


END MAXSYN. INITIALIZE: 
CALL MAXSYN. INITIALIZE: 


on 

i 

oe 
i 


/* SET UP TABLES #/ 


/® BEGIN TEST OF CHANNELS IN SYNTHESIZER #/ 


/* TEST IF IT EXISTS #/ 
/*® MARK AS MISSING #/ 


/* CLEAR OUT WAVE MEM USAGE DATA #/ 
/#@ FREE WAVE MEMS #/ 


A SINE WAVE _#/ 


c /* SET 
visabett THEN / MAXSYN. CLOCK. DIVISOR=Si /# “Ger CLOCK RATE #/ 


/* START OCTAVE OL GOING | IN ‘PITCH’ AT MIDDI+ 
/* SET UP NORMAL TUN ae 
/* AND NORMAL BASE #/ 


MAXIO == 


1 /# MAX 1/0 ROUTINES MODIFICATION LeveL 2 23 MARCH 1962 #/ 

2 /#* PRINCIPAL DEVELOPER: JEFFREY S. RISBE #/ 

2 7* COPYRIGHT 1982 NEW ENGLAND DIGITAL BERPORATION af 

3 7* THESE ROUTINES ENABLE READING OF INPUTS FROM THE KEYBOARD, 

é CONTROL PANEL, CONTROL KNOB, INPUT PEDALS, RIBBON CONTROLLER, 

vA AND FOOTSWITCHES, AND OUTPUT DISPLAY OF NUMBERS. LIGHTS, AND 

iE CONTROL VOLTAGES. #/ 

1 7* IMPORTANT GLOBAL INFORMATION #/ 

12 DCL NUM. OCTAVES LIT '067%; 7* NUMBER OF OCTAVES TO SCAN FROM KEYBOARD #*/ 
i DCL NUM. SW. PANS LIT ‘08°; 7* NUMBER OF SWITCH PANELS TO SCAN *#/ 
1$ DCL PANSW(NUM. SW. PANS-1) FIXED; 7* INPUT: FROM PANEL SWITCHES #/ 

16 DCL CLAVIER(NUM, OC TAVES-1i) FIXED; 7# INPUT: FROM CLAVIER #/ 

17 DCL DIGDISPLAY(NUM, OCTAVES-1) FIXED; /* OUTPUT: DIGITS TO DISPLAY #/ 

a DCL DISPLAYSW (NUM. SW. PANS-1) FIXED; 7* OUTPUT: BUTTONS TO LIGHT ON PANEL */ 
20 DCL KNOB. POS FIXED; 7* KNOB POSITION #/ 
21 DCL KNOB, CHANGE FIXED: /* AMOUNT TO CHANGE A ROG ADeNed BY */ 
22 DCL KNOB. BASE FIXED; 7* NEUTRAL KNOB Footie ne 

23 DCL VOLPEDAL.POS FIXED: 7* VOLUME PEDAL POSITIC 

24 DCL RTEPEDAL.POS FIXED; 7*# REAL TIME SEhecS ‘peDal “POSITION #/ 
2s DCL PBI, POS FIXED: 7* PITCH BEND_INPU 

26 DCL PBI, BASE FIXED; /* NEUTRAL PITCH BEND. INPUT #/ 

27 DCL RIB. ACTIVE FIXED; 7* TRUE_IF RIBBON ACTIVE ¥/ 
28 DCL RIB. BASE. FIXED: 7* STARTING RIBBON POSITION #/ 
2? DCL RIB. POS FIXED; #* RIGBON VALUE #/ 
ap DCL RTE. MAX Lit. “e25";3 /# LARGEST RTE OR VOL PEDAL POSITION #*/ 
32 DCL SWITCHDATA( 5) FIXED; ¢#*# HOLDS SWITCH INPUTS */ 
sa. DCL HOLD. SWITCH CLs “SWI TCHDATA(O) /; 7* HOLD SWITCH #/ 
34 DCL REP. SWITCH LIT ‘SWITCHDATA(1) ‘5 /# REPEAT SWITCH &/ 

Be] OCL CLIDE. SWITCH LIT “SWI TCHDATA(2) ‘5 7* PORTAMENTO SWITCH #/ 
36 ocL See hanes Cin “SWITCHDATA(3) %; 7* SUSTAIN SWITCH #/ 
37 DCL ARP. SWITCH [eee ig “SWITCHDATAC4) ‘5 4/* ARPEGGIATE SWITCH #/ 
a) DCL PUNCH. SWITCH LIT “SWITCHDATACS) ‘5 7% PUNCH IN/PUNCH OUT #/ 
40 DCL OUT. DATA(7) FIXED: 4#* HOLDS OUTPUT Nor TogeS / 
41 DCL LPFILT. QUT LIT ‘OUT. DATA(O)’; /* LOW PASS FILT_OQUT 
42 DCL eee oe LIT "OUT DATAC1)7%, ¢/* HIGH PASS FILT BUT” os 
43 DCL BPFIL i os ‘OUT. DATA(2) 7; 7* BAND PASS FILT OUT +*/ 
44 DCL BANDWIDTH, Tour LIT ‘OUT. DATA(3)‘; 
4s pci. CV. OU LIT ‘QUT. DATA(4)*; 7* CONTROL VOLTAGE OUT #*/ 
4G DCL GATE. OUT LIT ‘OUT. DATA(S) ‘7; /* KEYBOARD GATE OUT #/ 
47 DCL TRIGGER. ay ie) eu “OUT. DATAC&) /i 7* KEYBOARD TRIGGER OUT #*/ 
he DCL RIBBON. LIT ‘OUT. DATAC7) 7; /* RIBBON VOLTAGE OUT #*/ 
50 PCL DRA LIT “"f30"; /*# SWITCH/CLAVIER INPUT DATA REGISTER ADDRESS #/ 
5} BOL CR: 4 ETT ** aL"; 7* CONTROL REGISTER —- LeeD ALSO TO READ KNOB */ 
32 DCt AD A LIT ‘"163""; ¢* AD CONVERTER ADDRESS 
20 DCL SUA EIT *1s0""; /* SWITCH CONVERTER ADDRESS */ 

Sp SCANDATA:. PROCEDURE: 7* SCAN ALL INPUT DATA #/ 

36 DCL (1.J) FIXED: . 
S7 DCL (BASE. ADYUST) FIXED; 7* COUNTER FOR KNOB BASE oa */ 
38 DCL (DELTA, ACCUM) FIXED: 7* KNOB ADJUSTMENT VALUES #/ 
60 /* READ DATA FROM D130 CLAVIER/CONTROL PANEL INTERFACE #/ 
6) 
62 WRITE(CR. A)="20"; 4* FIRST STOP THE perTe:, IN PROGRESS #/ 
63 DO I=O TO (NUM, OCTAVES-1); /* FIRST THE sels D 
64 WRITECCR. AD=I; 7* SET UP ADDRESS 
6$ WRITE(DR A)=DIGDISPLAY( 1); 7* AND NUMBER TO DISPL AY_IN LEDS #/ 
4&6 WRITE(CR. Ad=IN"40"; WRITECCR. Ad=1; 7* PULSE EXW FOR LATCH STROBE +#/ 
&7 WRITECCR. A)=I\"100" /# NOW READ THE #/ 

68 CLAVIER (1)=NOT(READ(DR AD: ¢* GET KEYBOARD DATA #/ 

6? WRITE(CR. Ad=T; 7* AND OFF WITH READ #/ 

Se END: 

72 DG [=O TO (NUM. SW. PANS~ 15 /* NEXT READ en PANEL #/ 

73 WRITE(CR. ADSIN" LO" /* SET UP ADDRESS 

74 WRITE(CR. ADSIN"110"; 4/* NOW READ THEM FIRST #/ 

735 PANSW(I)=READC( DR. A); ¢* AND READ NEW SETTING #/ 

7 WRITE(CR. ADFIN 10%; 7* AND OFF WITH READ *#/ 

ok WRITE(DR. 4)=DISPLAYSWC I) \PANSWC(I): 4# LIGHT THOSE PRESSED «*/ 


vt 
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1=4; 
DO J=O0 TO 3: 

SWITCHDATA(J) = (READ (SH. A&I <>01 
END: af wk 


/# READ ANALOG INPUTS #/ 


WRITE(AD. CT ha KNOB. POS@READ( AD. AD: 
BASE. ADJUST=BASE. ADUUST +1) 
IF sase. oper ences THEN BEGIN: 
IF KNOB. POS<KNOG. 3ASE THEN KNOB. SASE=KNOB. BASE-1; 
a= KNOB. BASE#KNOB. BASE+1; 
i 


KNOB. CHANGE =0; 
DELTA®@KNOB. POS-KNOB. BASE; 
IF DELT4<O THEN DEL TA=~DELTA: 
IF DELTA>t2 THEN Dd: 
Gee on tae” eee a 
TF DELTAD31 THEN DE 
DEL TASanL (4 {DELTAGS). SHR (DELTA, 2)+5); 
ACCUM#ACCUM+DEL T 


THEN Da; 
ACCUM=ACCUM-" 100000"; 
KNOB. CHANGESSHR (DELTA. 219+ 


END 
END: 
ELSE IF DELTACS THEN ACCUM="077777"; 


pee Alw2+16i RTEPEDAL. PCS Ger | FB hla Adi 
IF RTEPEDAL. POS<O THEN RTEPED 
IF RYEPEDAL. POS>RTE. MAX THEN RTEPEDAL. POS#RTE. MAX; 


WRITE(AD. &)22412; VOLPEDAL. POS=240-READ< AD. Ads 
IF VOLPEDAL. POS<O THEN VOLPEDAL. POS= 
IF VOLPEDAL. POSORTE. MAX THEN VOLPEDAL. POS*RTE. MAX; 


WRITE(AD. A220; PBI. POS*READ(AD. Adi 


WRITECAD. A) 2244; TeReApt ad. Ad; 

IF RIB. ACTIVES90 EN 
IF (RIB. POS>ZIECID2) THEN RIB. ACTIVE*1; 
RIB. BASE= 


END; 
ELSE oO; 
IF I<3 THEN RIB. ACTIVE=0; 
END; 
RIB. POS=1; 


WRITECAD. A)53; 
DO [x90 


7 
ORT TE C= { 64")21; 
=” iis 183+) 20uT. DATACT); 


EN 
-ND SCaNDATA: 


IF KNOB. POS<KNOB. BASE THEN ‘knoe. CHANGE=~4KNOB. CHANGE; 
‘ 


SET UP EXTERNAL WRITE AGAIN #/ 
START CONVERSION, SET UP EXTERNAL WRITE #/ 


READ THE FOOT SWITCH INPUTS (HOLD, SUSTAIN, 
at SIX OF THEM #/ 
TRUE IF NONZERO #/ 


READ KNOB POSITION #/ 
COUNT TO ADvUST FoR Ts lai BASE LINE #/ 
DO _THE ADJUSTMENT *# 


THE 
CLEAR COUNTER #/ 
NUDGE TT ONE WAY #/ 
OR THE OTHER #/ 


START WITH ZERO #/ 

GET POSITION #/ 

COMPUTE AbsoLuTe VALUE %/ 

HAVE A 12 W con pane / 
SCALE _FOR MIN OF 

MAX OF 31 TO PREVENT “overFLow a/ 


ACCUMULATE MOD ae dr a/ 


R es 
* CHANGE BY THIS AMOUNT #/ 


SET UP HYSTERESIS #/ 


SCAN_RTE PED POSITION #? 
LIMIT TO ZERO #/ 

LIMIT TO MAX #/ 

SCAN VOL PED POSITION #/ 
LIMIT TO ZERO #/ 

LIMIT TO MAX #/ 

READ PITCH BEND INPUT #/ 


READ ADC VALUE FOR RIBBON CONT #/ 

CHECK FOR START OF RIBBON CONTROLLER +/ 
START RIBBON CONT #/ 

SAVE RIBBON CONTROLLER BASE #/ 


sac FOR END OF RIBBON oo as 
RIBBON NO LONGER ACTIVE +#/ 


SAVE CURRENT READING, AS OUTPUT AND FOR NEX' 


INITIATE NEXT ADC CONVERSION #/ 

PUT CONTROL VOLT VALVES ONTO Di64 DaACS #/ 
SELECT #/ 

PUT VALUE #/ 


ere. 


TYME 


= 
> 
* 
rad 
a 
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000000 00-0-0-0 
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(* */ 
7* DISPLAY PROCEDURE 
‘DISPLAY’ 


4 DIGIT LED DISPLAY ON THE CONTROL PANE! 
‘DISPLAY’ IS PASSED THREE ARGUMENTS: 


WORD - A BINARY NUMBER WHOSE DECIMAL EGUIVALENT_IS_ TO ae DISPLAYED 


TIN 


w/ 


DP. - A NUMBER THAT INDICATES THE DECIMAL POINT SETT 
UNS - A NUMBER THAT INDICATES THE UNITS TO DISPLAY #/ 
DCI. piers DATA (¥077", "906", m1a3", "117", "146", 
“y85™, 4", "O47", 841779, 147") 
DISPLAY, PROCEDURE(WORD. DP. UNS); 
DCL (WORD, DP, UNS ED; 
DCL POWERS Data 07000) 165. 10, 1): 
DCI SIGN FIX 
DCL (I,J) FIXED: 
DCL LIST(3) FIXED: 
SIGN=0; 
Tf WORD<O THEN DO; 
WORD=-WORD: STGN="100", 
tenpO0 WHILE WORD>=1000; WORD=WORD/10; DP=DP~1; END: 
ELSE bo: 
eppd0 WHILE WORD>=10000; WORD=WORD/10; DP=DP—1; END: 
DO I=0 TO 
tTSt 1) =WORD/POWERS( I); 
WORD=READ (4), 
sory 
DO WHILE (JCB&(LIST(U)=OIR(JC4=DP)s UmUets END: 
DO f=J TO 3: 
LIST(L)=DIGITS(LISTCI)); 
enpif Ps4-DP THEN LIST) 2LISTé1)\"200": 
TF USO THEN LIST(J-1)=SIGNi 
DIGDISPLAY(1)=SHL (LIST(0), 8)+LIST (1); 
DIGDISPLAY(O)=SHL(LIST(2). 8) +LIST(3)i 
DIGDISPLAY(2) SUNS: 
END DISPLAY: 
/* ‘DISPLAY. ERROR‘ PUTS ’ErrO’ TO ‘Err?’ IN THE DISPLAY 
DISPLAY, ERROR, PROCEDURE (NUM); 
DIGDISPLAY( 0} = "950000" +DIGITS(NUM): 
DIGDISPLAV< 1)="0745 
DIGDISPLAY(2)=0; 
END DISPLAY ERROR: 
fn */ 


7# KEYBOARD SCAN ROUTINE: CHECKS FOR NEW KEYS #/ 


DCL OLD CLAVIER. K(NUM. OCTAVES-1) FIXED: 
DCL OLD CLAVIER. R(NUM, OCTAVES-1) FIXED: 


af perese sie lina OCT. LIST.LIST. PTR.LIST SIZE): 
OCL (NEWKEYS. OCT, LIST PTR,LIST. SIZE) FIXED: 
(t MASK) FIXED: 


KEYSKMASK )<>0 THEN DO; 

IF _LIST_PTROLIST. SIZE THEN RETURN LIST. PTR: 
LIST(LIST. PTR)=OCT#i2¢1; 

LIST. PTR=LIST. PTR+1; 


END; 
foo =SHL(MASK, 1); 
RETURN LIST. PTR: 


IS CALLED TO CALCULATE THE fo TO DISPLAY IN THE 


OIGIT CODES #/ 


PASS NUMBER, OP PS, UNITS #/ 


THE SIGN CONTROL BIT #/ 

STORE THE FOUR DIGITS HERE #/ 
ASSUME POSITIVE NUMBER #/ 

SET SIGN TO — FOR DISPLAY #/ 

ALWAYS USE DECIMAL POINT OF ONE FOR NEGATIVE NUMBE 
ADJUST DP #/ 

ADYUST DP #/ 

Cae og i 4 PEOTIS */ 

READ RUL/DIV UNIT TO GET MODULO #7 
FIND FIRST NON-ZERO DIGIT +#/ 

FIND FIRST TO DISPLAY #/ 

LOOK UP BCD’S AS REQUIRED #/ 

LIGHT DECIMAL POINT IF REQUIRED #/ 


STORE SIGN _#/ 
FORM OUTPUTS #/ 


AND SET UP UNITS BIT WORD ALSO #/ 


CALLED WITH VALUE 0 TO 9 #/ 
FORM THE DISPLAY #/ 

[ERR 467 

NO UNITS #/ 


OLD KEYS DOWN FOR SCAN. K #/ 
OLD KEYS DOWN FOR SCAN.R #/ 


SET _UP MASK #/ 


COUNT IT #*/ 
MOVE ON TO NEXT BIT #/ 
RETURN NEW PTR #/ 


sy 


-4- 

END SCAN. OCTAVE: 

SCAN, KEVEGRRD: PROCEDURE (LIST.LIST. SIZE); /@ PASS LIST AND SIZE OF LIST #/ 
ocL ST ARRAY: /# RETURNED LIST OF NEW KEYS +#/ 
ocL LEST. PTR, a SIZE) PR’ 

DCL (1%, NEWKEYS) FIXED: 
LIST. PTRed ® NO _NEW KEYS # 
DO I=0 TO NUM. GCTAVES-1 + GOP OVER Bee OCTAVES */ 
NEHMEVSCLAVIER( 1) & (NOTCOLD. CLAVIER. KA(I))); 
are at aS CL UECLAVIER C21) /* SAVE PREVIOUS +/ 
LIST. BTRSSCAN. OCTAVE (NEWKEYS, I. LIST, LIST. PTR. LIST. StZE}s 
END; OF LOOP ON OCTAVES #/ 
RETURN LIST. P ym NUMBER OF NEW KEYS #/ 

END SCAN. KEYBOARD. 

SCAN. pe BASE: PROCEDURE (LIST, LIST. SIZE); a /* PASS LIST AND SIZE OF LIST #/ 
OcL /@ RETURNED LIST OF RELEASED KEYS «/ 
DCL (LIST. ELRLEIST: SIZE) FIXED: 

Poe. Ue Reon FIXED: 
DO I=0 NUM. OCTAVES— /* LOOP OVER ALL OCTAVES #/ 

NEWREL Sm (NOT CLAVIER (12? = OLD. CLAVIER. R(ID; 

Feces AVIGR. BCI en /* SAVE PREVIOUS #/ 

1ST. PTR=SCAN. OCTAVE (NEWRELS, [, LIST, LIST. PTR. LIST. ae 

» OF LOOP ON OCTAVES #/ 
RETURN LIst. hg te NUMBER OF RELEASED KEYS #/ 
END SCAN. RELE 


/% INITIALIZATION ROUTINE #/ 
MAX10. SNETI ALE ZE: PROCEDURE: 
DCL I rig 


Lins 
oo 150" TO NUM. SW. PANS-1: DISPLAYSW(I)=0; END; /* CLEAR THE a pt af 
DO I=#0 TG NUM: OCTAVES-11; DIGDISPLAY(I)=0) END: /# CLEAR DISPLAY #/ 
CALL SCANDATA /@ SET UP THE SCANNING wf 


BO I=0 TO NUM. octaves- : 
OLD. CLAVIER. K¢ Tee Avrenct): OLD. CLAVIER. R(I)=CLAVIER(!}: 


END; 
WRITE(AD. A)@3) WRITECAD. A)=2i /@ START CONVERSION #/ 
KNOB. POS#READ( AD. A): /* READ INITIAL KNOB POSITION #/ 
KNOB. BASE=KNOB. POS: 4* SAVE THIS AS NEUTRAL POSITION #/ 
WRITECAD. 4)=2+8) PEL. BASE=READCAD. A): /@ GET NEUTRAL PBI #/ 
RIB. ACTIVE=0; /* RIBBON IS NOT ACTIVE */ 

END MAXIG. INITIALIZE; 

CALL MAXIO. INITIALIZE; " 


MAXTASK 


UR ODONGEUSUN-OWOVEVALNe 
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24 
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MAX MULTI-TASKING EXEC 


/* 
PRINCIPAL DEVELOPER: 


4* CAMERON JONES 


MODIFICATION LEVEL 2 


235 MAR G2 


¢# COPYRIGHT 1962 NEW ENGLAND DIGITAL CORPORATION 


/# Vaers are requested to read cargfully 


listed in the User’s Guide in the Chapter for 


/* Global Variables: 
The following 


storage areas within MAXTASK. #/ 
dcl num. tasks lit ‘16%; 
dcl len. stack lit ’64/; 
dcl n. automat lit ’°6%) 
dcl stack. reg lit ‘"315"/; 
dcl stack. mem lit °"355"7; 
del stack. ming lit CeS75" 7; 
dcl pc.reg Are, Seay 
del call. instr lit *™736" +; 
dcl store. regs lit ‘“150230"" 
del alltsk.err lit ‘47; 
/* interrupt handler for clock ticks #/ 
dcl cur.time fixed; 
when dOGint then cur, time=cur. times: 
/# standard error message routine 
ERROR: PROC (NUMBER); 
dcl number fixed; 
disable: 
prints print ‘“MAXTASK Error’, ; 
if numberwalltsk.err then 
print ‘/Warning Type ‘., number, 
else print ’ Type ’, number, ’ Encountered 
call exit(-1); 
END ERROR; 


the ep eree ens and 


7 


literal declarations are used to allocate tables 


/* 


(assumes that a terminal is 


/* 
/* 


*: All Tasks Terminated, ‘; 


Program Halted. 


itfalls 
4 ef 


and 


space reserved for this many tasks #/ 

push down stack length for each task */ 
Number of automatic vars for each task #*/ 
Scientific XPL’s Push Down Stack Register #/ 
Top-most word on Scientific XPL’s stack «#/ 
Stack top with increment #/ 

Scientific XPL’s Bo Counter Register «/ 
Scientific XPL’s CALC instruction #/ 

Sub call to store registers #/ 

error type for all tasks terminated #/ 


used to count clock units #/ 
keep track of time here #/ 


present) #/ 
PRINT ON TERMINAL #/ 


stop interrupts #/ 


at 


-2- 


4 af 
/*® Storage Management: 


The following 


¢@ holds forward aie 
/* holds start 

7* holds Scere ne iacse 
7/2? push stack oint 
¢#* push atack o9 
/@ holds stack area #/ 
44 pointers a/ 


/#* currently executing 


rently exec block #/ 


A Linked list is used toa aeqanice the task list. 
definitions are provided: *# 
dcl mt. fptr (num. taska) fixed: 
dcl mt.time (num. taske) #izxed: 
dcl mt. strt (num. tasks) fixed: 
del mt. stk (num. tasks) fired) 
del mt. sth (nua. tasks) fixed: 
del mt. stak in tasks#(len. stacken. autcmat+i)) fixed: 
del Tolock. ‘Shee eee. ptr) fixed: 
dcl tlist. ptr fixed 
/@ automatic vars are just after stack area i 
gécl automatici lit ‘lit ’’core (mt. stkt(tlist. p 
dcl automatic2 lit ‘lit *‘core (mt. atkt(tliat.p 
del sutomaticS lit ‘lit ‘’corpe(mt. stkt(tlist. 
dcl automatic lit ‘lit ‘“’cope (amt. stkt(tlist. p 
del avtomaticS Lit ‘lit ‘‘core at. stkt(tlist. p 
4cl automaticS lit ‘lit ‘‘core(mt. stke¢tlist. p 
GET. BLOCK: pr 

if free. Lg Gi thes, call error(1); 

block. Crepe feet 

free. reat Thee co voek atr); 
END GET. BLOCK 
REL. BLOCK: 


mt. eperteiecs. Pee eee ptr: 
free. otrzblock. ptr: 
END REL. BLOCK; 


+3 
FL 
i 
A 
é 


* proceduns, ta qs, ab 
oo many tasks #/ 


/*® procedure to release 


er #/ 
*/ 
fon #/ 
er 2/ 
a/ 
block #/ 


lock. feturns global pti 


‘block. ptr’ #/ 


4 


MAXTASK Ae 


a /* a/ 

cae /* THE FOLLOWING LITERALS ARE USED TO EFFECTIVELY ADD NEW STATEMENTS 

78 TO XPL WHICH ENABLE A PROCEDURE TO BE GIVEN THE NAME OF ANOTHER 

rhe PROCEDURE. FOR EXAMPLE. A STATEMENT ‘START taskname TASK: ’ BECOMES: 

Ee DO; CALL MAXTASK. START; CALL taskname; END; 

[273 IN WHICH THE MAXTASK. START ROUTINE CAN PICK UP THE TASK’S ADDRESS 

a4 FROM THE SECOND CALL STATEMENT AND THEN SKIP OVER THE CALL. THE 

as ‘DO’ AND ‘END’ SERVE TO BRACKET THE TWO CALLS. SEE THE MANUAL FOR 

BS USAGE OF THE ‘SET’ OPTION IN & START STATEMENT. */ 

8a DCL START LIT ’DO; CALL MAXTASK. START: CALL °%; 

89 DCL KILL LIT ‘DO; CALL MAXTASK. KILL; CALL '3 

90 OCL TERMINATE LIT ’DOi CALL MAXTASK. TERMINATE’: 

or DCL SET LIT *; CALL MAXTASK, SET’: 

He DCL TASK Cit “Cre iEND% 

oe 7* TASK START ROUTINE: 

ae TASKS ARE STARTED BY THE STATEMENT: START taskname TASK; */ ; 

78 MAXTASK. START: PROC; 7* procedure to start a task #/ 

bead dcl (i. jy) Fixed: 

100 i=read (stack. mem)—-1; 4% pick up pointer to our return #/ 

101 JecoreCideds /4#* pick up pointer to next instructions #/ 

102 if core(y)<>cail. instr then call error(2): /#@ incorrect call to start #/ 

103 Jzcore( j*l)3 7* pick up pointer to procedure to initiate #/ 

104 core(i)=core(i)+2; 4* skip over that call on our return #/ 

ee call get. block: /*® get a block of storage #/ 

107 if tlist. ptr=O then doi /* if nothing in list. put ourselves there #/ 

ee URES, eee Sp omen Re ee GN 
end: 

110 else doi 7# Link ourselves after current block #/ 

11 mt. fptr(block a etre! A Rah a hoa 7* set up our forward pointer #/ 

ra Jf ERM ptr)d=block. ptri /* link ourselves on immediately after current task = 
endi 

114 

115 mt. time(block. ptr)ecur. time: /* indicate our time #/ ; 

116 mt, strt(block, ptr)syi /* indicate where in memory poo cede we is #/ 

117 mt Se ete nena ae ae Ee ee ae Meee eee 7* compute stack location #/ 

118 mt, stk eC eke /* compute stack top for error SHeCeng * 

119 core(mt. stkp(block. ptr) )=0; /* set return location to zero to start procedure #/ 

tee END MAXTASK. START; 

122 MAXTASK. SET: PROC(VI, V2, V3, V4, V3, V6): /* PRESET AUTOMATIC VARS #/ 

123 dcl (vl.v2,v3.v4.¥5. v4) Fixed: 

124 core(mt. stkt (block. ptrd+1l)=vl1; 

125 core(mt. stkt (block. ptr)+2)=v2; . 

126 core(mt. stkt (block. ptr)+3)=v3 

127 core(mt, stkt (block. ptr) +4) =v4; 

128 core(mt. stkt (block. ptr)+5)=v3 

129 core(mt. stkt (block. ptr)+4)2v6; 

neh END MAXTASK. SET: 


MAX TASK ~4- 


1 42 a/ 
i 
1 7 SUSPEND is called from a task to suspend exec..cion of that task 
1 The argument specifies the time in milliseconds +::7 which the tast 
: is to be suspended. i.e... CALL SUSPEND(500); mea::1 hal? a second. #/ 
1 del exec. stack fixed: /@ Exec’s stack pointer #/ 
be del maxtask. clock. divisor fixed: /* clock rate #/ 
14 SUSPEND: PROC( TIME): /*@ Suspend current task #/ 
14 del time fixed: /* the time in milliseconds #/ 
14 dcl ticks fixed: 4m the time in cloch ticks #/ 
14 acl backo #ixedi : /* holds bach pointer #/ 
es ticks=time/maxtask. clock. divisor: /@ find number of ticks #/ 
14 if tlist.ptr#O then tlist. ptreblock. ptr: /* tlistsO when other task was terminated #/ 
14 else do: /*® suspend current task #/ 
14 block. ptretlist. ptri /*@ get pointer to currently executing block #/ 
13 mt. stkp(block. ptr) sread(stack. reg)i /* read current stack pointer & store it #/ 
13 if Or user aioe s. a Eg pa ed a a teen call error(g): /# stach length exceeded #/ 
ck. ptr 


mt, time(dlock. ptr)amt. time +tick 7*® compute next =e! time #/ 
oe dee el ap . /@ initialize Back pointer #/ Ss 
. next block on front of que, unlinking ourselv 


tlis ear ges See tr) + a4 
do while ec are syeohel ee &(mt. time(core(ba. zo) )<mt. timedbiock. ptr)); /# position next block #/ 
7 ain sonic ricore (backp))); 
end: 
mt. fotr( block. ptr )=core(backo)i 7# link our front #/ 
a a i a aa aa /# position our block on que #/ 
endi 3 


/# now wait for time #/ 


dp Sh sts cur, time<cmt. time(tlist. ptr); /* weit for time to occur #/ 
end: 
/* $tart next task #/ 
write(stack. reg)amt. stip(tlist. ptr); /* set up stack pointer #/ 
if read(stack. mem)=0 then do; /@ indicates start of a procedure #/ 
write(stack. minc)score(ezec, stack+1)i /@ get exec return location #/ 

write stack. memieread (stack. reg)-2) 7* back pointer #/ 

4? core(mt. stre(tlist. ptr) =store. regs the: 30; /* must put extra stack frame #/ 
core(read (stack. reg)+7)sread (stack. reg) /* get up back pointer #/ 
write(atack. reg)“read(stack. reg) +7: /@ update stack pointer #/ 

gun METRE: FRG PAR ere ele Ser eee /*® and enter procedure #/ 
end: 
else write pe. regiamt. stre(tlist. ptr): /@ start from top of procedure *#/ 
endi 
returni /* else just return to continue with procedure #/ 
END SUSPEND; 
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MAXTASK = 


ao 
185 /* Two facilties are provided for terminating the execution of a task. 
186 To terminate the current task, use the statement: TERMINATE TASK; 
187 To terminate another task, use the statement: &AILL taskname TASK: 
ee These literals will call upon the appropriate routine below. */ 
190 MAXTASK. TERMINATE: PROC; /*® procedure to terminate a task #/ 
19714 block. ptr=tlist.ptritlist. ptr=mt. fstr(block. ptrdi 4*® unlink ourselves from tlist #/ 
192 call rel. block: /® release the block of storage #/ 
193 block. ptr=tlist. ptri tlist. ptr=0; /* set up for special] call to wait #/ 
194 if block. ptr=O then call error(alltsk. err); /*® all tasks terminate - we are done! #/ 
195 call suspend(O)i /*® and we are done #/ 
129 END MAXTASK. TERMINATE: 
198 MAXTASK. KILL: PROC; 7* kill another task #/ 
199 dcl (i, 5) fixed: 
200 izread(stack, mem)-1: /* pick up pointer to our return #/ 
201 yecore(id+¢1; P /* get pointer to our return #/ 
202 if core(y)<>call.instr then call error(5);: /* error #/ 
203 Jecore(ytl)s | 7* pick up ge to procedure #/ 
204 core(i)=core¢i)+2: /* increment our return #/ 
205 i=addrimt. fotritlist. ptr); /*® use i for back pointer #/ 
206 block. ptr=mt. fptritlist. ptrdi /*® and start with Block after ourselves #/ 
207 do while block. ptr<>0; 7* scat each block */ 
208 af mt. strt (block. ptrd=j then doi /e match - kill it #/ 
209 core(ilsmt. fptriblock. ptr): /* save Forward pointer #/ 
at Pils rel. block: /*# release block #/ 
endi 

212 else Vaid ire Cie 80 ET UR NCC bree he?) /* move back pointer up to our address #/ 
ae ge EF Berea ; /*® get next forward pointer #/ 

end: 
215 if mt. strt(tlist.ptr)= ; then call maxtask. terminate; /* we killed ourselves #*/ 
216 else return: /# otherwise return to continue processing #/ 
oe END MAXTASK. KILL: 


MAX TASK =é2 


219? /* a/ 

220 

221 /@ initialization code #/ 

222 

cea dcl main procedure; 7* forward reference to user‘’s main task #/ 

225 free, ptrel; /* firat freg@ bloch is block #1 #/ 

226 do block, ptr#l toa num. tasks-1i /@ set up list #/ 

2e7 me. fptriblack. ptrr=ploch. ptreli 

228 ends 

229 

230 7eif shr(coretcore(1)+14),1)&1 thene/ maxtask. clock. divisor=5; /# set rate */ 

ao /#else martask. clock. divisor={0i @/ 

233 atart main task: /* start the user’s main task @/ 

234 enadle; 7* start the ball game rolling #/ 

235 exec. stack*read(stach. reg); /* save pointer to exec’s push down stack #/ 

236 block. ptratlist. ptri tlist. ptr=O; call suspend(0): /* terminate ourselves #/ _ 
237 terminate task; /# tasks return here 1f they user ‘return’ TERM ATE 


Herat 


Click Track and External Clock Synchronization. 
3 
Three procedures are provided in MAXSYN to allow the user to produce a 
click track, and read from and write to the external clock. This allows 
you to utilize the external clock input and output in arbitrary ways, 
such as for specialized timing and synchronization applications. 


Generating a Click Track. 


The EMIT.CLICK procedure will produce a click on the click track output 
when it is called. Thus, a click track could be produced by the following 
statements 


130 DO WHILE 1; /* REPEAT FOREVER */ 

140 CALL EMIT.CLICK; /* PUT OUT A CLICK */ 

150 CALL WAIT(1000); /* WAIT A SECOND BEFORE NEXT CLICK */ 
160 END; 


This would produce a click every second. Clearly, more complex patterns 
of clicks could be produced by a more complex timing cycle. 


Writing to the external clock. 


The external clock output may be toggled by the user by calling the 
TOGGLE .EXT.CLOCK procedure. This means that the external clock output 
will switch from "high" to "low", or "low" to "high". Since most 

external devices reading the clock output will detect the edges rather 
than the levels, this enables the user to produce an edge. The "high" and 
"low" levels are approximately 1.5 volts peak to peak, bipolar. 


For example, the following routine would produce a 15 ms pulse every 500 ms 


170 DO I=0 to 9999; /* TICK COUNTER */ 

180 IF (I MOD 100)=0 THEN CALL TOGGLE.EXT.CLOCK; /* EDGE UP */ 
190 IF (I MOD 100)=3 THEN CALL TOGGLE.EXT.CLOCK; /* EDGE DOWN */ 
200 CALL WAIT(5); /* WAIT 5 MS ¥*/ 

210 END; 


The clock is toggled at 0,3,100,103,200,203, and so on, with 5 ms between 
each tick. The initial value is "low", so this will cause a change to 
"high" at 0 ms, followed by a toggle back to "low" 3 ticks later, or 15 ms. 


Reading from the external clock. 


The current state of the external clock input may be obtained from the 
EXT.CLOCK.IN function. This may be placed in a variable as in the statement 


220 X = EXT.CLOCK.IN; /* STORE THE CURRENT CLOCK INPUT IN 'X! */ 


The external clock input is expecting an approximately square bipolar wave 
about 1.5 volts peak to peak. The value obtained will be 1 when the clock 
input is "high", and 0 when the input is "low". Since the external clock 
input is not latched in the input circuitry, the input may float after each 
change in the input pulse. Thus the software should latch the input when 
it changes, and save it to detect further edges. 


If the External Clock Out and In jacks are connected together on a system, 

AC coupling between the two I/O drivers will cause the External Clock In to 
float to "high" within 10 ms after the pulse. Thus testing of programs in 

thus manner may cause spurious results. 
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